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
}