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