my @sorted_phases = sort { $b->{count} <=> $a->{count} }
                      values %$strings;