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