Help for this page
Chromosome has X genes Chromosome KLHL13 has X genes Chromosome UTY has Y genes Chromosome SPIN2B has X genes Chromosome PIR has X genes
foreach my $geneid ( sort { $geneids{$a} <=> $geneids{$b} } keys %geneids ... print OUT "Chromosome $geneid has $geneids{$geneid} genes\n"; } }