Help the counting!

Select or download this

 chr            start        end
chr21   9411509 9411529
...
chr21   9411573 9411593
chr21   9411575 9411595
chr21   9411578 9411598

Select or download this

|-----|
    |-----|
          |-----|
   |------|

Select or download this

|----|
      |----|
           |-----|
                    |-----|

Select or download this

TSSD_ID  Start position End  position  Count overlapped
ID_1        XXXXX               XXXXXX          54

Select or download this

#!/usr/bin/perl -w

...
    if ( $tol < ( $start[$i] - $start[$i+1] ) ) { $ID++; }
if ($start[$i]-$start[$j] == 0) { $count++;}}
    print  "ID_$ID \t $chr[$i] \t $start[$i] \t $end[$i] $count \t $st
+rand[$i]  \n"; }}

Select Code to Download