in reply to How do I sort a hash of arrays by value THEN by key?
you are on the right path, but as usual TMTOWTDI...
# ascending use Sort::Key::Maker sort_ss => qw(str str); my @akeys = sort_ss { $data{$_}[0], $_ } keys %data; # descending use Sort::Key::Maker sort_rsrs => qw(-str -str); my @dkeys = sort_rsrs { $data{$_}[0], $_ } keys %data;
|
|---|