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

##</code><code>##

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