Select Code to Download

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

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