#!/usr/local/bin/perl

while ($line = <>) {
        while ($line =~ /\d/g) {
              $digitcount[$&] += 1;
        }
}
print ("Totals for each digit:\n");
for ($i = 0; $i <= 9; $i++) {
        print ("$i: $digitcount[$i]\n");
}
