Select Code to Download

    my @sorted_phrases = sort { $b->{sort_number} <=> $a->{sort_number
+}, $b->{count} <=> $a->{count}  }
                      values %$strings;

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

    my @sorted_phrases_2;
#    my $i = 0;
    foreach (my $i = 0; $i <= $#sorted_phrases; $i++) {
...
    }

    @sorted_phrases = @sorted_phrases_2;