Help for this page
#!/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; }