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;

##</code><code>##

for $nums ($first,$second,$third,$forth)
or
for $nums (123,32,7,-12,-23,17)