my $highest = pop sort { $a <=> $b } @list;