while (<>) {
      my @fields = split /,/;  # Text::CSV_XS would be better.
      next if $field[0] eq $input{FName}
           || $field[1] eq $input{LName}
           || $field[3] eq $input{county};
      print;
   }

##</code><code>##

   while (<>) {
      my @fields = split /,/;  # Text::CSV_XS would be better.
      next if $field[0] eq $input{FName}
           && $field[1] eq $input{LName}
           && $field[3] eq $input{county};
      print;
   }