use strict;

{
my $a = \$a;
print "a=$a\n";

sub f {
  my $var = shift;
  print $var, "=", eval "\$$var", "\n";
};
}

&f("a");