$stmt = qq(INSERT INTO ACCU_USAGE  VALUES ($Mobil ...
...
$stmt = qq(INSERT INTO ACCU_USAGE  VALUES ($MobileNumber, ...
...
$rv = $dbh->do($stmt) or die $DBI::errstr;
...