Select Code to Download

my ($carry, @tallykeeper) = map 0, @arrays, 0; #gets rid of warnings..
+. w/strictures
while (!$carry) {
...
   }
   print "\n";
}

my ($carry, @tallykeeper) = map 0, @arrays, 0; #gets rid of warnings..
+.
while (!$carry) {
...
   print "$combostr\n";
}