@h{(a..z)} = (A..Z);
%h = map { $_ => $h{$_} } sort { $b cmp $a } keys %h;