{
   my $t = 'test';
   sub foo { $t }
   sub show { print eval "\$$_" for @_; }
}
show(qw( t ));  # Nothing