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