while (my $record = <$csvfile>) {
    $line_no++;
    chomp $record;
    $record =~ s/\cM$//;
    if ($csv->parse($record)) {
        my @columns = $csv->fields();
        my $value  = "$columns[9], $columns[2]";
        printf {$fout} "[good][%06d] %s\n", $line_no, $value;
    } else {
        printf {$fout} "[bad][%06d] %s\n", $line_no, $record;
    }
}