Select Code to Download

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

chomp($entry);
my @array = grep {$_} split /[\t ]/, $entry;
unless(exists($bedgenenames{"$array[3]"})){
...
    push @haplotyperegionrepeats, "$array[8]";
    print "$array[8] for $realgenenames{$array[8]} and $array[6] haplo
+type\n";
}

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