Select Code to Download

#!/usr/bin/perl -w
use strict;
...
chr11   679 687 0
chr22   100 200 0
chr22   300 400 0

while (<KEY>) {

...
    my ($chrom) = split;
    $Chr{$chrom}=1;
}