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

=> nothing

##</code><code>##

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

=> testtest