sub findDigits {
    my $n = shift;
    
    my $cnt = 0;
    my @digits = split("", $n);
    foreach (@digits) {
        next if ($_ == 0);
        $cnt++ if ($n % $_ == 0); 
    }
    return $cnt;
}