Select Code to Download

sub tuples {
    my( $count, @set )= @_;
...
for my $tuple (  @$tuples  ) {
    print "@$tuple\n";
}

sub tupleMaker {
    my( $count, @set )= @_;
...
while(  my @tuple= $gen->()  ) {
    print "@tuple\n";
}