my @array = qw(Anna Maria Carmen);
my @phldrs = ('?') x @array;

local $" = ',';
my $sql = qq/DELETE FROM tnt WHERE Name NOT IN (@phldrs)/;

my $sth = $dbh->prepare($sql);
$sth->execute(@array);
$sth->finish;