my $t1 = 'test1';
sub show { print eval "\$$_" for @_; }
my $t2 = 'test2';
show(qw( t1 t2 ));  # test1, but not test2