bar("a","b");

sub bar {
   foo();
   &foo();
   &foo;
}

sub foo {
($a, $b)=@_;
print "$a, $b\n";
}