# 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');
}