In Perl, how can I iterate over the Cartesian product of multiple sets?

Question

Given x number of arrays, each with a possibly different number of elements, how can I iterate through all combinations where I select one item from each array?

Answer 1

Recursive and more-fluent Perl examples (with commentary and documentation) for doing the Cartesian product can be found at http://www.perlmonks.org/?node_id=7366

Example:

sub cartesian {
    my @C = map { [ $_ ] } @{ shift @_ };

    foreach (@_) {
        my @A = @$_;

        @C = map { my $n = $_; map { [ $n, @$_ ] } @C } @A;
    }

    return @C;
}