Shamelessly stealing from jynx and you, I contribute my meager -2 strokes for 69:

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

— Arien