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