print map { uc "$_ " } qw( i cannot believe you missed out map ), "\n"