Select Code to Download

open my $fh, '>>', $filename;
foreach my $uniquekey ( keys %myHash ) {
...
   print $fh ...;
};
close($fh);