#________1_________2_________3_________4_________5_________6_________
#23456789012345678901234567890123456789012345678901234567890123456789
for$a(1..pop){$_{1e-3*int"@_"*1e3*$a/$_}++for 1..$a}sort{$a-$b}keys%_