&foo;
[download]

will call your subroutine with the @_ array set to the arguments of the caller.

an example

bar("a","b");

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

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

the call to bar will now print

,
,
a, b