В Perl, как я могу перебрать декартово произведение нескольких множеств?

Даноx количество массивов, каждое из которых может иметь разное количество элементов, как я могу перебрать все комбинации, где я выбираю один элемент из каждого массива?

Пример:

[   ]   [   ]   [   ]
 foo     cat      1
 bar     dog      2
 baz              3
                  4

Возвращает

[foo]   [cat]   [ 1 ]
[foo]   [cat]   [ 2 ]
  ...
[baz]   [dog]   [ 4 ]

Я делаю это в Perl, кстати.

Ответы на вопрос(5)

Ваш ответ на вопрос