while (scalar @result < $maxdigits) {
  push @result, 0;
}