print FILE "$_\n" for @array;
  print FILE join "\n", @array, "";
  print FILE map "$_\n", @array;
  do { local $,="\n"; print FILE @array };