@a = qw /Joe Sue Jane Bill Bob Ann Jerry/;
@b = grep {length $_ > 3} @a; # only long names go through
print "@b";
