Select Code to Download

use strict;
use warnings;
...
open my $fh, '>', 'output.txt' or die $!;
print $fh "$_\n" foreach @data;
close $fh or die $!;