最大値の取得

　Statistics::Liteのmaxで取得できます。

use strict;
use warnings;
use Statistics::Lite qw(max);

my @data = (5, 10, 3, -20, 9);
my $max = max @data;
print $max, "\n";

　List::Utilのmaxでも取得できます。

use strict;
use warnings;
use List::Util qw(max);

my @data = (5, 10, 3, -20, 9);
my $max = max @data;
print $max, "\n";