Many ways:

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

I wouldn't like to say which is fastest (I'd guess the third). --Dave