my @set1 = qw(A B C D); my @set2 = qw(X Y Z); mk_tuples(@set1, 2); mk_tuples(@set2, 5);