while ($CONTENDS=~/(\d{10})/g) {
    $match=$1;
    $IDNUMBER{$match}=1 unless $IDNUMBER{$match}; 
}

foreach $match (keys %IDNUMBER) {
  $sqlinsert="INSERT INTO $tab[$loop] VALUES('$match')";
                 $rc=$db->Sql($sqlinsert);
                die qq(SQL fail "$rc":), $db->Error(),qq(n) if $rc;
}