my $lock = 0;
$GetDataFromTable->execute($indexnumber)
    || die "Can't execute GetDataFromTable ($DBI::errstr)";

unless (($lock,$updon) = $GetDataFromTable->fetchrow()) {
    $InsertData->execute($data1,$someotherdata,1,1,0)
        || die "Can't execute InsertData ($DBI::errstr)";
    goto DONE;
}