>perl -E"for (qw( a b )) { my $x = $_; say $x }" a b