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

##</code><code>##

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