for $nums (@numset){ $min = $nums unless ($min); $max = $nums unless ($max); $max=$nums if ($nums > $max); $min=$nums if ($nums < $min); $total += $nums; ++$count; } print"Minimum: $min","\nMaximum: $max\n","Average: ",$total/$count;