use Data::Dumper;
open(my $fh,">$file") or die $!;
print $fh Dumper(\%uniques);
close $fh;