Select Code to Download

#!/usr/bin/env perl -l

...
H chr2 100
I chr2 200
J chr2 200

Reads by specific chromosome and location:
Reads on CHR:chr1 LOC:100 = 3
...
Reads on CHR:chr1 LOC:300 = 3
Reads on CHR:chr2 LOC:100 = 1
Reads on CHR:chr2 LOC:200 = 2

    push @{$count{$chr}{$loc}}, $seq;
    #++$count{$chr}{$loc};
...
...
            print "Reads on CHR:$chr LOC:$loc = ", scalar @{$count{$ch
+r}{$loc}};
            #print "Reads on CHR:$chr LOC:$loc = ", $count{$chr}{$loc}
+;