Как нумерологически сложить значения переменных в Perl?
Здравствуйте, задача состоит в том, чтобы сложить нумерологически числовые значения переменных. Например, имеем три переменных: $a = 1; $b = 33; $c = 706; $d - должна быть равна нумеролоической сумме чисел, т.е. 1+3+3+7+0+6 = 20
да, но хотелось бы получить именно 20, как в моем примере, потому что если результат будет более какого либо числа - необходимо будет сложить значение цифр итога, а если нет - тогда нет)