my $tmp = join "," map "?", @arr;
my $stmt = <<"EOT";
delete from table_name where field in ($tmp)
EOT

my $sth = $dbh->prepare($stmt);
$sth->execute(@arr);