Select Code to Download

@ary = (34, 'a', '+', \0, 'y','Z');

@ary = sort { $b cmp $a } @ary;

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