my @a = qw( a b c );
my @b = map { $_ = uc($_); $_ } @a;
say "@a";  # A B C     <-- You clobbered @a!!!
say "@b";  # A B C