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

##</code><code>##

my $highest = pop @list;
foreach (@list) {
	$highest = $_ if $_ > $highest;
}