Select Code to Download

use Sort::Key::Multi 'ru_ru_keysort'; # sort by two unsigned keys in r
+everse order
use List::Util 'sum';
...
        my $l = $scan->{$_};
        (scalar(@$l), sum(@$l))
    } keys %$scan;