use lib....
use foo;
my $a = 5;
&foo($a);
--------
sub foo{
my $a =shift;
print ${$a};
}