http://www.perlmonks.org?node_id=115348


in reply to uc() every other letter

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