sub Z
{
     my ($foo) = @_;

     print "\$foo = $foo\n";
     $$foo = 17;
     print "\$foo = $foo\n";
}

my $bar = 29;
print "\$bar = $bar\n";
Z(\$bar);
print "\$bar = $bar\n";