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