Exactly what I was thinking. (:

sub tuples {
    my( $count, @set )= @_;
    my @out;
    nestedLoops(
        [ ([0..$#set]) x $count ],
        { Code => sub { push @out, [@set[@_]] } }
    );
    return \@out;
}
my $tuples= tuples( 2, qw(A B C) );
for my $tuple (  @$tuples  ) {
    print "@$tuple\n";
}
[download]

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";
}
[download]