If you're going to use List::MoreUtils for something this trivial, then each_arrayref does everything in one step.

my $i = each_arrayref($array1, $array2);
while (my ($x, $c) = $i->()) {
   print("$x, $c\n");
}
[download]