最小値の取得

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

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

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

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

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

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