my ($max) = reverse sort keys %h; 

##</code><code>##

my ($max) = sort {$b <=> $a} keys %h; 

##</code><code>##

my $max = 0;
$max < $_ and $max = $_ for @a;