use List::Util qw( sum );

sub min_max_avg {
    my ( $min, $max ) = ( sort { $a <=> $b } @_ )[ 0, -1 ];
    return ( $min, $max, sum @_ );
}