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