foreach my $key (
    sort {
        ${$self->{_counts}{$a}} <=> ${$self->{_counts}{$b}}
    } keys %{ $self->{_counts} }