use strict;
use warnings;

use File::Copy;

my $delete = 'small.csv';
my $file = 'large.csv';
my $backup = "$file.bak";
copy $file, $backup or die "Copy failed: $!";

open my $in_dh, '<', $delete or die "$delete: $!";
open my $in_fh, '<', $backup or die "$backup: $!";
open my $out_fh, '>', $file or die "$file: $!";

my $match = <$in_dh>;
while (my $line = <$in_fh>) {
    if (index ($line, $match) == -1) {
        print $out_fh $line;
    } else {
        $match = <$in_dh>;
    }
}

close $in_dh;
close $in_fh;
close $out_fh;

use strict;
use warnings;
use 5.010;

my @needles;
while (<>) {
    chomp;
    push @needles, $_;
    last if eof;
}

{
    local $^I = '.bak';

    my $needle = shift @needles;
    while (<>) {
        chomp;

        if (! defined $needle or index($_, $needle) == -1) {
            say;
        }
        else {
            $needle = shift @needles;
        }
    }
}

/path/to/script needles haystack