Report question

Question: In Perl, how can I get the Cartesian product of multiple sets?