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