my @alpha = ('a' .. 'z');

@alpha = map { $_ % 2 ? uc $alpha[$_] : $alpha[$_] } 0..25;