sub H($$){
#________1_________2_________3_________4_________5_________6_________7______
#234567890123456789012345678901234567890123456789012345678901234567890123456
map{$.=$_,map$_{int($_[0]*1e3*$./$_)/1e3}++,1..$_}1..pop;sort{$a<=>$b}keys%_
}