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

##</code><code>##

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

##</code><code>##

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