Select Code to Download

use strict;
use warnings;
...
    print "Number $number failed for:\n";
    print "   $_: $digits{$_} places\n" for @failDigits;
}

Number 1233456 failed for:
   3: 2 places
Number 555789041 failed for:
   5: 3 places