# no error checking...
sub min_max_avg {
    my ($min, $max) = (sort {$a <=> $b} @_)[0,-1];
    my $total; $total += $_ for @_;
    return ($min, $max, $total/@_)
}