#global variable
my $global = "foo";
print $global . "n";
#subroutine call
&change($global);
print $global . "n";

sub change {
               change the value of global to "bar";
               return $global;
           }

foo
bar

sub change {
   $global = 'bar';
}