Help for this page
Select Code to Download
Select
or
download this
my $max = pop @{[sort @vals]};
Select
or
download this
use List::Util qw(max); my $max = max @vals;