in reply to issues with eval (get a variable's value)
Also see Coping With Scoping
my $t; sub show { print eval "\$$_" for @_; } sub init { $t = 'test'; show(qw( t )); } => nothing [download]
my $t; sub show { print $t; print eval "\$$_" for @_; } sub init { $t = 'test'; show(qw( t )); } => testtest [download]