printf "\e[102m Count[$num] = %s\e[m\n\n", persist($num, $dbg);


##</code><code>##


    printf "\e[102m Count[%s] = %s\e[m\n\n", $num, persist($num, $dbg);


##</code><code>##


    my @dbg = ( );
    map { push @dbg, ($res *= $_) } split(//, $num);


##</code><code>##


    my @dbg = map { $res *= $_ } split(//, $num);