my $csv_o = Text::CSV_XS->new ({ binary => 1, sep_char => "\t", auto_diag => 1, eol => $/ });

open my $fhv, ">", $file_to_parse_valid   or error ("Cannot open file for write: $!");
open my $fhi, ">", $file_to_parse_invalid or error ("Cannot open file for write: $!");

while (…) {

    if ("valid") {
        $csv_o->print ($fhv, [
            $chu, $dev, $development_name, $bldg_no, $bldg_name, $unit_id, $proj,
            $proj_name, $bdsz, $st_no, $street_name, $apt_no, $p_code, $un_st, $mkt,
            $max_rent, $fut_movein, $p, $last_move_in, $last_move_out, $pgm, $clt_no,
            $mgr_cd, $manager, $unit_status_dt, $cont_occ_dt, $pending_move_out_dt,
            $unit_status_desc ]);
        }
    else {
        $csv_o->print ($fhi, [
            $chu, $dev, $development_name, $bldg_no, $bldg_name, $unit_id, $proj,
            $proj_name, $bdsz, $st_no, $street_name, $apt_no, $p_code, $un_st, $mkt,
            $max_rent, $fut_movein, $p, $last_move_in, $last_move_out, $pgm, $clt_no,
            $mgr_cd, $manager, $unit_status_dt, $cont_occ_dt, $pending_move_out_dt,
            $unit_status_desc ]);
        }