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