$ perl -E 'say for grep length, qw{x y z}'
x
y
z

##</code><code>##

$ perl -E 'say for map length, qw{x y z}'
1
1
1