Line 117 - $store{(abs($F2[2]-$F3[2])+1)}++;
Line 118 - ($F2[2], $F3[2]) = ($F3[2], $F2[2]) if $F2[2] > $F3[2];
Line 119 - $Tally{$F2[1]}{$F2[2]}{$F3[2]}++;
Line 127 - foreach my $value1 (sort {$a <=> $b} keys %{$Tally{$chr}}) {