open FILE, "> somefile.txt" or die $!;
print FILE join "\n", @array;
close FILE;

##</code><code>##

{
  local $, = "\n";
  open FILE, "> somefile.txt" or die $!;
  print FILE @array;
  close FILE;
}