How to split the digits to count the no of times it comes in perl

How to split the digits to count the no of times it comes in perl

! /usr/bin/perl
use strict;
use warnings;
my @array = ('0'..'9');
print "Enter the inp No's : ";
while (($inp = <STDIN>) cmp "\n"){
}
angus > perl no.pl Enter the inp No's : 12123213123
I'm trying to find how many times each no comes and the total of all the
digits.How to split each digit and find its occurence