foreach my $geneid (
    sort { $geneids{$a} <=> $geneids{$b} } keys %geneids
) {
    print OUT "Chromosome $geneid has $geneids{$geneid} genes\n"; 
}