&writeFile("file.txt", \@file);

##</code><code>##

  print FILE @$_[1];