for my $i (0..$#$array1) {
   my ($x, $c) = ($array1->[$i], $array2->[$i]);
   print("$x, $c\n");
}