>perl -le"for my $x qw( a b c ) { print $x }"
a
b
c