my @letters  = ('a', 'b', 'c');
my @capitals = map { $i++; push @capitals, uc($letters[$i]) } @letters;