$ cat npn.txt
11111111
10001781
11111222

##</code><code>##

$ cat first_file.txt
abc,,,,
abc,10001781,,,
abc,10001782,,,
abd,10001783,,,

##</code><code>##

$ cat test.pl
use strict;
use warnings;
use Text::CSV_XS "csv";

my %npn = map { chomp; $_ => 1 } do { local @ARGV = "npn.txt"; <> };

csv (in => "first_file.txt", filter => { 2 => sub { !exists $npn{$_} }});

##</code><code>##

$ perl test.pl
abc,,,,
abc,10001782,,,
abd,10001783,,,