my $sth = $dbh->prepare( $sql );
    $sth->bind_param(1, $xlist, { ora_type => ORA_CLOB });
    $sth->execute;