my @digits;
while ($num > 0) {
   unshift @digits, $num % 20;
   $num = int($num / 20);
}

@digits = 0 if !@digits;