Help for this page
&writefile("file.txt", @array);
sub writefile { my ($filename, @array) = @_; ... close(FILE); return 0; }