so like every number you read adds to the count for each incremental 100k bucket? e.g. seeing 202844 on input adds to the count for the bucket for the 200k to 300k range.
you could either write this the old fashioned way testing how many times you can divide by 100k before you go to a result below 1.0. OR the much more fun way is to pre-process the numbers by rounding down to nearest 100k, then drop all the right hand side zeros, and count these (now simple) integers, i.e. every number from 0 to 100k becomes nothing, which (when used in perl number context) becomes zero again, so all these zeros go to first bucket, etc.
the hardest line to type correctly is: stty erase ^H