This will add the new lines between each element of the array.

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
print $fh join("\n", @array);
close($fh);
[download]

See join

Update: you could also do this:

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
{
   local $, = "\n";
   print $fh @array;
}
close($fh);
[download]

See: perlvar. Sorry I had the wrong variable there originally... hence the update.