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