I have the following code:

for my $line (@lines) {
    print "Line: $line\n";
    if ($csv->parse($line)) {
        my @fields = $csv->fields();
        my $i = 0;
        for my $column (@fields) {
            print ++$i, " = ", $column, "\n";
        }
        print "\n";
    } else {
        my $error = $csv->error_input();
        print "parse() failed on argument: ", $error, "\n";
    }
}
[download]

This works fine when @lines contains the data in the format:

field1, field2, field3
[download]

But prints parse() failed on argument:(no $error value) for the following:

"field1", "field2", "field3"
[download]

The Text::CSV docs say "A field within CSV may be surrounded by double-quotes." So it would appear to me to be valid formatting. Could someone explain the error to me? Thanks.