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