my ($min, $max, $sum) = calculate [qw/min max sum/], @list;