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