Select Code to Download

$ cat npn.txt
11111111
10001781
11111222

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

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

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

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