Happy New Year for all the monks! I have the following problem:I want to delete from a database the records that are NOT equal with the elements of an array.

my @test=("Anna","Maria","Carmen")
foreach $line(@test){    
                        
        my $sth=$dbh->prepare(qq{DELETE FROM tnt WHERE  `Name`!=\"$lin
+e\"});
        $sth->execute();
        $sth->finish;
        }
[download]

If I have in the database the record "Diana" I want to erase it because it's not an element of the array @test. In the way i do it it deletes all the records from the database. Thank you very much for your time.