use DBD::Oracle qw(:ora_types);

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