use strict;
use warnings;

my @array = qw(foo bar baz);

open OUT, ">filename.txt" or die "$!";
$,="\n";
print OUT @array;
close OUT;