sub cardinality
    {
    my $self = shift;

    my $product = 1;

    foreach my $length ( @{ $self->{lengths} } )
        {
        $product *= ( $length + 1 );
        }

    return $product;
    }
[download]

And $self->{lengths} is initialized like this:

$self->{lengths}  = [ map { $#{$_} } @$array_ref ];
[download]

Looks right to me, and doesn't look like a length limit.

Could you try to find a data sample where cardinality returns 0?

The simplest explanation is that one of your arrays is empty.

Hi, Unknowingly, some empty arrays were getting included in the 10 arrays that I was using as input for Set::CrossProduct. On removing them, the cross-product result is perfect. Thanks!

When you find a solution, please do not delete the content of the original node. The thread is next to worthless when that happens.

If it happened accidentally, then never mind ;)

--MidLifeXis