print map uc($_),    qw( a b c d );  # Prints ABCD
print map { uc($_) } qw( a b c d );  # Same thing