Re: two order sort

[salva]

in reply to two order sort

The problem may be related to both sort and reduce using the same global variables $a and $b.

In any case, you can use Sort::Key:

use Sort::Key::Multi 'ru_ru_keysort'; # sort by two unsigned keys in r
+everse order
use List::Util 'sum';

my @sorted = ru_ru_keysort {
        my $l = $scan->{$_};
        (scalar(@$l), sum(@$l))
    } keys %$scan;