Select Code to Download

foreach $i1 (@ a_1) {
  print $i1;
}

foreach $i1 (@ a_1) {
foreach $i2 (@ a_2) {
  print $i1,$i2;
}
}

foreach $i1 (@ a_1) {
foreach $i2 (@ a_2) {
...
}
}
}