my @ary1 = ( [1, 2], [3, 4]); my @ary2 = ( [4, 5], [6, 7]); my $ea = List::MoreUtils::each_array(@ary1, @ary2);