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