use DBD::Oracle qw(:ora_types);
...
$sth->bind_param(1,$scode, ORA_NUMBER);
or
$sth->bind_param(1,$scode, ORA_VARCHAR2);