sub ave {
    my $tot;
    my $cnt;
    my $find_ave = sub {
        $cnt += @_;
        $tot += $_ for @_;
        return $cnt ? $tot / $cnt : undef;
    };
    return @_ ? $find_ave->( @_ ) : $find_ave;
}

##</code><code>##

sub ave {
    my ($cnt , $tot);
    if ( @_ ) {
        $cnt += @_;
        $tot += $_ for @_;
        return $cnt ? $tot / $cnt : undef;
    }
    else {
        return sub {
            $cnt += @_;
            $tot += $_ for @_;
            return $cnt ? $tot / $cnt : undef;
        };
    }
}