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