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