title: How to split the digits to count the no of times it comes in perl
body: <pre><code>#! /usr/bin/perl 
  use strict;
  use warnings;
  my @array = ('0'..'9');
  print "Enter the inp No's : ";
  while (($inp = &lt;STDIN&gt;) cmp "\n"){
  
  }
  </code></pre>
  
  <p>angus > perl no.pl
  Enter the inp No's : 12123213123</p>
  
  <p>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</p>