sub f{
#       10        20        30        40        50        60        70        80        90       100       110
#23456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123
my%r;%i=@_;@{$r{$_}}{map{$_,keys%{$r{$_}}}@{$i{$_}}}=0for(@i=keys%i)x@i;sort{keys%{$r{$a}}<=>keys%{$r{$b}}}keys%r
}

##</code><code>##

sub f{
#       10        20        30        40        50        60        70        80        90       100       110
#23456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.1
sub Q{keys%{$_[0]}}my%r;%i=@_;@{$r{$_}}{map{$_,Q$r{$_}}@{$i{$_}}}=0for(@i=Q\%i)x@i;sort{Q($r{$a})- Q$r{$b}}Q\%r
}