for my $i (reverse 0..$#a) {
   print("$a[$i], $b[$i]\n");
}