my @headers = split("\t",<$IN>);
	my $index = first{$headers[$_] eq 'Strand'} 0..$#headers;
	while (<$IN>) {
		chomp $_;
		my @F = split("\t", $_);
		if (exists $hits{$F[$index+1]}{$F[$index+2]}) {
		} else {
			$hits{$F[$index+1]}{$F[$index+2]}{'w'} = 0;
			$hits{$F[$index+1]}{$F[$index+2]}{'c'} = 0;
		}
		$hits{$F[$index+1]}{$F[$index+2]}{$F[$index]}++
	}