Re: uc() every other letter

[echo]

%lcase = (a..z);
@upcase = map { uc $_, $lcase{$_} } sort keys %lcase;

[tommyw]

Oooh. Bonus points for the obfuscated use of a hash to break out the alternate letters!

[echo]

Obfuscated? You are too kind. You got me thinking though...

@upcase = map { chr(ord() ^ ((ord() & 1) << 5)) } (a..z);