@a = qw /Joe Sue Jane Bill Bob Ann Jerry/;
@b = map {uc $_ } @a; # upper-case each element
print "@b";
