my $max = (sort @vals)[-1];