How to numerologically add the values ​​of variables in Perl?

Question

Perl

Hello, the task is to add the numerologically numerical values ​​of the variables. For example, we have three variables: $a = 1; $b = 33; $c = 706; $d - must be equal to the numeroloic sum of numbers, i.e. 1+3+3+7+0+6 = 20
How to make it more beautiful?

Answer 1

If you add it numerologically, you should get the number 2.
(1 + 33 + 706) % 9 = 2