&writefile("file.txt", @array);

##</code><code>##

sub writefile {
  my ($filename, @array) = @_;

  open(FILE, ">$filename") || return ($!);
  print FILE @array; #nothing in between?
  close(FILE);
  return 0;
}