use strict;
 
{
my $a = \$a;
print "a=$a\n";
 
sub f {
  my $var = shift;
  print $var, "=", eval "\$$var", "\n";
};
 
i(); # works
 
}
 
#&f("a");
  
sub g { f("a") }
sub h { g() }
sub i { h() }