my $sql = "update list set clist=? where name='$TABLE_NAME'";
        my $sth = $dbh->prepare( $sql );
        $sth->bind_param(1, $xlist, { ora_type => ORA_CLOB });
        $sth->execute($xlist);