Select Code to Download

my @set = qw(a b c);

...
b,b,c
b,c,c
c,c,c

my @set = qw(foo bar baz);

...

print "Combinations:\n";
print "$_\n" for @comb;