foreach my $thing (@arr1,@arr2) {
  print "$thing\n";
};