http://www.perlmonks.org?node_id=1001697


in reply to Re^4: sort hash of arrays of arrays
in thread sort hash of arrays of arrays

Then you need to do one sort for each key in the hash like this:

@{ $hash{$_} } = sort{ $b->[1] <=> $a->[1] } @{ $hash{$_} } for keys % +hash;; pp \%hash;; { 1 => [[26, 27, 28], [16, 17, 18], [6, 7, 8], [1, 2, 3]], 2 => [[27, 28, 29], [17, 18, 19], [7, 8, 9], [2, 3, 4]], 3 => [[28, 29, 30], [18, 19, 20], [8, 9, 10], [3, 4, 5]], 4 => [[29, 30, 31], [19, 20, 21], [9, 10, 11], [4, 5, 6]], }

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong