my %bedgenenames;
my @bedrepeats;
my %realgenenames;
my @haplotyperegionrepeats;


##</code><code>##

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";
}


##</code><code>##

WASH5P14829 for ENSG00000223972 and ENSG00000227232 bed
WASH7P for ENSG00000227232 and ENSG00000227232 haplotype