DBI types are integers, not strings. That's why it complains that the string 'ORA_RSET' is zero (non-numeric strings == 0). ORA_RSET is a constant exported by DBD::Oracle, so you can say:

use DBD::Oracle qw(:ora_types);

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

Or since constants in perl are just functions, you can just say:

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