foreach my $key (
    sort {
        $self->{_counts}{$a} <=> $self->{_counts}{$b}
    } keys %{ $self->{_counts} }
) {
    printf "key %s: value %s\n", $key, $self->{_counts}{$key};
}