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";