my $max;
for (@list) {
    $max = $_ if ! defined $max || $_ > $max;
}