my @a = qw( a b c );
my @b = apply { $_ = uc($_);} @a;
say "@a";  # a b c
say "@b";  # A B C