Chromosome  has X genes
Chromosome KLHL13 has X genes
Chromosome UTY has Y genes
Chromosome SPIN2B has X genes
Chromosome PIR has X genes

##</code><code>##

foreach my $geneid (
    sort { $geneids{$a} <=> $geneids{$b} } keys %geneids
) {
    if ($geneid =~ /^(?:[0-9]+|X|Y)\z/) {
        print OUT "Chromosome $geneid has $geneids{$geneid} genes\n"; 
    }
}