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