use List::Util qw(max);
my $max = max @vals;