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

open my $fh_in, "<", $file_to_parse or die "$file_to_parse: $!";

while (my $row = $csv->getline ($fh_in)) {
    my ($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) = @$row;