Select Code to Download

{
   my $x = 1;
...
   print("@a @b\n");
   # 1 2 3 4 5 6 7 8
}

>perl -le "for (1..2) { for (reverse 1..3) { print; $_=5; } }"
3
...
3
2
1