Help for this page

Select Code to Download

Select or download this

use Set::CrossProduct;

...

my @set = qw(A B C); 
my $output = mk_tuples(@set, 2);