# Prüfen, ob ein Datensatz mit den einzufügenden Daten schon vorhanden ist
# selectrow_array liefert in diesem Fall was anderes als undef zurück
unless ($dbh->selectrow_array(qq{SELECT* FROM tabelle WHERE name=?},undef,'A')) {
    # Ok, selectrow_array hat nichts geliefert
    # Das heißt, wir können den Datensatz einfügen
    $dbh->do(qq{INSERT INTO tabelle(name) VALUES(?)},undef,'A');
}

Root: ID   | NEID                           State:  ID     NEID
        ----|-----------
        1       232 9                                      1     1213
       -----------------                                  2         2121
         2      2339                                        3      2329    

:
___________________________________________________
$query = "SELECT STATE.NEID FROM STATE ";

$sth = $dbh->prepare($query)|| die "Querry Error prepare: $DBI::errstr\n";

 $execu= $sth->execute||die "Querry Error execute: $DBI::errstr\n";


if (State.NEID =Root.NEID ) { print "True\n";}
Elese {Insert Into STATE (" STATE.NEID" where STATE.NEID="2329"}

print "ID:$newdata->{NEID}
       }
 
 $sth->finish();

my $neid = 2329;
my $query = "SELECT Root.NEID, State.NEID FROM Root, State WHERE Root.NEID = ?";
my $sth = $dbh->prepare($query) or die $dbh->errstr();
$sth->execute($neid);

my ($root,$state) = $sth->fetchrow_array();

if(not defined $state){
    $dbh->do("INSERT INTO State(NEID) VALUES(?)",undef,$neid) or die $dbh->errstr();
}

if(not defined $root){
    $dbh->do("INSERT INTO Root(NEID) VALUES(?)",undef,$neid) or die $dbh->errstr();
}