use List::Util qw(reduce);

my $highest = reduce { $a > $b ? $a : $b } @list;