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