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

##</code><code>##

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

##</code><code>##

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