... = do {
        local %_ = %unique_descriptive;
        %{$_{shift @{[ 
            sort{ $_{$a}->{count} <=> $_{$b}->{count} || $b <=> $a} keys %_ 
        ]}}};
};