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

##</code><code>##

a,
b,
c

##</code><code>##

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

##</code><code>##

a
b
c