Re: minimum, maximum and average of a list of numbers at the same time

[broquaint]

This would seem a "perlish" solution to me:

use List::Util qw/ min max sum /;
sub min_max_avg {
  return min(@_), max(@_), sum(@_) / @_;
}