# Why this?
my @b = apply { $_ = uc($_);} @a;
# Instead of this, or a more verbose version of it?
my @b = map uc, @a;