chomp($entry);
my @array = grep {$_} split /[\t ]/, $entry;
unless(exists($bedgenenames{"$array[3]"})){
    $bedgenenames{"$array[3]"}="$array[6]";
}elsif("$bedgenenames{$array[3]}" ne "array[6]"){
    push @bedrepeats, "$array[3]";
    print "$array[3] for $bedgenenames{$array[3]} and $array[6] bed\n";
}
unless(exists($realgenenames{"$array[8]"})){
    $realgenenames{"$array[8]"}="$array[6]";
}elsif("$realgenenames{$array[8]}" ne "array[6]"){
    push @haplotyperegionrepeats, "$array[8]";
    print "$array[8] for $realgenenames{$array[8]} and $array[6] haplotype\n";
}