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