Tell your teacher that loops are not the best solution for a min/max/average solution, because they are s-l-o-w.

You don't need to step through all the values to get the min and max , you can just sort the list and get the first and last value, since sorting is *much* simpler for the perl interpreter than having to look at each value. chezzz.

($min, $max) = (sort { $a <=> $b } @numset)[0,-1];
[download]

As for the average, what could be faster than just adding all the numbers divided by the number of numbers ? Several divisions on smaller numbers are easier than dividing the big number in the end, so this is FAST!

grep { $avg += $_/@numset } @numset;
[download]

Don't worry about it being hard to read, perl is all about being hard to read and you are likely to be looked upon with admiration from your colleges for code like this!

I sit back and watch the XP's fall...