in reply to uc() every other letter

Just for variety:
$_ = uc for @array[grep { not $_ % 2 } 0..$#array];

[download]

In Section Seekers of Perl Wisdom