my @array = qw(foo bar foobar barfoo 1 2 3); my @caps = map "\u$_", @array; print "@caps\n";