my $max = pop @{[ sort { $a <=> $b } @vals ]};

##</code><code>##

my $max = $vals[0];
$max = ( $_ > $max ) ? $_ : $max foreach @vals;