use DBD::Oracle qw(:ora_types);

$sth->bind_param_inout(2, \$accessroles, 0, { ora_type => ORA_RSET} );

##</code><code>##

$sth->bind_param_inout(2, \$accessroles, 0, { ora_type => DBD::Oracle::ORA_RSET() } );