sub tupleMaker {
    my( $count, @set )= @_;
    my $iter= nestedLoops( [ ([0..$#set]) x $count ] );
    return sub { @set[ $iter->() ] };
}
my $gen= tupleMaker( 2, qw(A B C) );
while(  my @tuple= $gen->()  ) {
    print "@tuple\n";
}