Select Code to Download

my @set1=(0..7);
my @set2=(6..12);
...
 @comb = glob"{@set1}-{@set1}-{@set2}-{@set2}-{@set2}"'
}
print join "\n",@comb;