use strict;
use warnings;
my %strings;

# Set up some example key/value relationships.  Your method
# for populating the hash will be more complex, but isn't
# defined in the question.
$strings{"Here is one string"} = 233;
$strings{"Here is another string"} = 151;
$strings{"Here is yet another"} = 322;

print map{ "$_ = $strings{$_}\n" }
        sort{ $strings{$b} <=> $strings{$a} }
            keys %strings;