Select Code to Download

use IO::File;
...
...
}

$fd{$_}->close for keys %fd;

my @array = (
   [ 'somefilename',  @data1 ],
...
   open(F, ">$filename") or die "Couldn't open $filename: $!";
   print F join("\n", @{$_}), "\n";
}