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

This is a bit more compact

Hope it helps
UnderMine