while (length($extnum) lt $numlength) {
        $extnum = "0" . $extnum;
    }