Select Code to Download

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

=> nothing

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

=> testtest