my (@abc, $m); 
for $m ( qw/a b c/ ) { 
    push @abc, \ $m;
}                      
print "$$_\n" for @abc;