Apart from the comment by Limbic~Region above, be sure to remember that sort assumes lexicographical order by default. This means that 20 would come after 100. If you want to do numeric comparison instead, you'd use the spaceship operator:

   my $max_val = (sort { $a <=> $b } @all)[0];
[download]