for (my $i=@a; $i--; ) {
   print("$a[$i], $b[$i]\n");
}