use strict;
use List::MoreUtils qw(:all);

my @array1 = qw /ab bc cd de/; 
my @array2 = qw /cc dd ee gg/; 
my @array3 = qw /12 34 56 78/; 


my $result = each_array(@array1, @array2, @array3);

while ( my ($a, $b, $c) = $result->() )
{
	print "\n$a $b $c";
}

##</code><code>##

ab cc 12
bc dd 34
cd ee 56
de gg 78