sub writeFile {
open(FILE, ">$_[0]") || return ($!);
print FILE "$_[1]";
close(FILE);
return 0;
}

##</code><code>##

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