use strict;

my $a = 1;
my $b = 2;
my $c = 3;

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

&f("a");
&f("b");
&f("c");
# prints a=1 b=2 c=3