my (@abc, $m); for $m ( qw/a b c/ ) { push @abc, \ $m; } print "$$_\n" for @abc; [download]
In reply to Re^6: Lost anonymous subs by kappa in thread Lost anonymous subs by kappa