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