Some corrections and new ideas; you want to be able to output your results, right?

perl -F//
     -lane 'BEGIN{$/=\1024}
            $x[$_]++for@F;
            END{print $x[$_]for 0..9}'
     /path/to/pi
[download]

Too bad the -O command switch can't take \1024. That's a cool trick.