DBI && MySQL lock

my $npmdb_dbh = DBI->connect(“DBI:ODBC:npmdb”, “informix”,”*******”,{RaiseError=>0,PrintError=>0});
my $gisdb_dbh = DBI->connect(“DBI:Oracle:gisdb”, “gis”,”*******”,{RaiseError=>1,AutoCommit=>0});

$npmdb_dbh->do(“set isolation to dirty read”);

my $sel_sql = ” select a.first_result,a.ne_id,
NVL(CSTRAFFIC_CONV11,0),

round(SFB_DIVFLOAT_1(NVL(b.ATTOUTPSUTRAN,0)-NVL(b.FAILOUTPSUTRAN,0),NVL(b.ATTOUTPSUTRAN,0),0,0)*100,2)

from tpc_utrancell_ne a ,TPC_UTRANCELL_HO_NE b,TPC_UTRANCELL_HSPA_NE c

where  a.first_result =  current year to hour – $para units hour ||':00:00′
and a.first_result = b.first_result
and a.first_result = c.first_result
and a.ne_id = b.ne_id
and a.ne_id = c.ne_id”;

my $rsite = $npmdb_dbh->prepare($sel_sql);
$rsite->execute();
my $ref_data = $rsite->fetchall_arrayref();
$rsite->finish;
$gisdb_dbh->do(“delete from BTS_PM_TD where first_result <= sysdate – 74/24″);

$gisdb_dbh->do(“commit”);
$npmdb_dbh->disconnect();
$gisdb_dbh->disconnect();