print HITSW $read_hits++;

##</code><code>##

  my $read_hits = <HITSW>;
  seek HITSW, 0, 0;
  print HITSW $read_hits + 1;