my %kill;
@kill{'00020123837', '00020123839'} = ();
while(<>) {
    my($serial) = split /,/;
    print unless exists $kill{$serial};
}