tester1.pl
$a = 1;
foo($a);

sub foo {

    print "$a \n";
}