in reply to Sorting a Hash of Hashes by Value

?! 
sort { $h->{$b}{'s'} <=> $h->{$a}{'s'} }

[download]

In Section Seekers of Perl Wisdom