Select Code to Download

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

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