my @sorted_keys = map { sort { $_->{$a}[1][1] <=> $_->{$b}[1][1] } keys %$_ } \%all_zw_ref;