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