while (<KEY>) {

    chomp;
    @key_split = split("\n");
    $Chr{"$key_split[0]"} = $key_split[0];
}
## better written as: ##
while (<KEY>) {
    my ($chrom) = split;
    $Chr{$chrom}=1;
}