open FILE, "> somefile.txt" or die $!;
print FILE join "\n", @array;
close FILE;
[download]

Or:

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

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.