Select Code to Download

use strict;
use warnings;

...
      print "$_->[$i] " if $_->[$i] and not $seen{$_->[$i]}++;
   }
}

ant bee cat 1 3 cow 5 rat 7 dog 9 2 4 6 8 X

my @arrays = \( @array1, @array2, @array3 );
my %seen;
...
   $i++;
   redo unless $count >= @arrays;
}