perl -e '@a = qw(a b c);map { print "$_\n"; } @a'