while (<$fh_in>) {
   $csv->parse($_)
      or die("csv: " . $csv->error_diag() . "\n");

   my @fields = $csv->fields();

   if ($fields[9] == 32) {
      print $fh_kept $_;
   } else {
      print $fh_rejected $_;
   }
}