Select Code to Download

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 @array;
close($fh);

open(my $fh, '>>', '/path/to/a/text/file.txt') || die "could not open 
+output file : $!\n";