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