Select Code to Download

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

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

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