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 join("\n", @array);
close($fh);

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);