sub H($$){
#________1_________2_________3_________4_________5_________6_________7_
#2345678901234567890123456789012345678901234567890123456789012345678901
for$.(1..pop){$_{int($_[0]*1e3*$./$_)/1e3}++for 1..$.}sort{$a-$b}keys%_
}