my @letters  = ('a', 'b', 'c');
my @capitals = map { uc($_) } @letters;