$ perl -le '@a=qw/a b c/; print while <@a>'
a
b
c