while (my $row = $csv->getline ($fh)) {

    # Check if the 5th field contains data
    if ($row->[4] =~ m/\S/) { # more than just whitespace
        $csv_o->print ($fhv, $row);
        }
    else { # sorry, this is not filled: invalid    
        $csv_o->print ($fhi, $row);
        }