sub write_hits {
  my $hit_count = &read_hits($_[0]);
  open (HITSW, '>', "$_[0]");
  $hit_count++;
  print HITSW $hit_count;
  close (HITSW);
}