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

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

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."