use strict;
use warnings;

my @array = (...};

open OUTFILE, '>', 'filename' or die "Couldn't create filename: $!";
print join "\n", @array;
close OUTFILE;