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