my ($carry, @tallykeeper) = map 0, @arrays, 0; #gets rid of warnings...
while (!$carry) {
   $carry = 1;
   my $combostr = ""; 
   for my $dx (reverse 0 .. $#arrays ) { 
      $combostr .= $arrays[$dx]->[$tallykeeper[$dx]]; 
      $tallykeeper[$dx] += $carry;
      if ($tallykeeper[$dx] < @{$arrays[$dx]}) {
          $carry = 0;
      }else{
          $tallykeeper[$dx] = 0;
      }
   }
   $combostr = reverse $combostr;
   print "$combostr\n";
}