Select Code to Download

#!/usr/env/perl

...
}

##### returns nothing with 129 ####

my @x = (1..10);
my @y = qw(one two three four five six seven eight nine ten);
...

my @xyz = (\@x, \@y, \@z);
my $glob = join( ',', map { '{' . join( ',', @$_ ) . '}' } @xyz );

sub make_combo_iter
{
...
    }; # anonymous iterator sub
    return $iter;
} # make_combo_iter