$digit = chop $num while $num;