my $stats=List::Util->calculate([qw/min max sum/])->of(@list);
print $stats->min, "\n";