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