$_ = uc($_) for @a;