lanx$ perl -e '
$a='a';$b='b'; my $var;
for $var ( $a,$b ) {
  *$var=sub {print "$var \n" }
};$var="x";
a();$b="y";b();
'
a 
y 
lanx$ perl -e '
$a='a';$b='b';  
for $var ( $a,$b ) {
  *$var=sub {print "$var \n" }
};$var="x";
a();$b="y";b();
'
x 
x