my @mixed_case = 'a' .. 'z';
my $other_letter = 0;
$_ = uc() for grep ++$other_letter % 2, @mixed_case;