main::(mist.pl:24):     my $key2 = "00000015";
  DB<1>
main::(mist.pl:26):     $sth->execute($upd, $key1, $key2) or die $dbh->errstr;
  DB<1>
    -> execute for DBD::Oracle::st (DBI::st=HASH(0x216c384)~0x23849f8 '000000000
99' '04' '00000015') thr#0183F32C
       bind :p1 <== '00000000099' (type 0)
       bind :p1 <== '00000000099' (size 11/12/0, ptype 4, otype 1)
       bind :p2 <== '04' (type 0)
       bind :p2 <== '04' (size 2/3/0, ptype 4, otype 1)
       bind :p3 <== '00000015' (type 0)
       bind :p3 <== '00000015' (size 8/9/0, ptype 4, otype 1)
    dbd_st_execute (for sql f5 after oci f62, out0)...