Help for this page
#!/usr/bin/perl ... close(KEY); close(REG);
chr1 100 159 0 chr1 200 260 0 ... -------------------- chr9 100 125 0 --------------------