foreach my $k (keys %uniquefiles) {
   print OUT "$k\n";
}