#! perl -slw
use strict;

open my $IN2, '<', '1166792.dat' or die $!;

my( %store, %Tally );

while (<$IN2>) {
    chomp $_;
    next if eof;
    my @F2      = split( "\t", $_ );          #Split each tab-delimited field
    my $partner = <$IN2>;
    my @F3      = split( "\t", $partner );    #Split each tab-delimited field
    $store{ ( abs( $F2[2] - $F3[2] ) + 1 ) }++;
    ( $F2[2], $F3[2] ) = ( $F3[2], $F2[2] ) if $F2[2] > $F3[2];
    $Tally{ $F2[1] }{ $F2[2] }{ $F3[2] }++;
}

foreach my $key ( sort { $a <=> $b } keys %store ) {
    print "$key\t$store{$key}\n";
}

foreach my $chr ( sort { $a <=> $b } keys %Tally ) {
    foreach my $value1 ( sort { $a <=> $b } keys %{ $Tally{$chr} } ) {
        foreach my $value2 ( sort { $a <=> $b } keys %{ $Tally{$chr}{$value1} } ) {
            print "$chr\t$value1\t$value2\t$Tally{$chr}{$value1}{$value2}\n";
        }
    }
}