sub howmany {
    return scalar(() = $_[0] =~ /(?:(?:^|,)[^,])/g);
}