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";
    }
}

##</code><code>##

field1, field2, field3

##</code><code>##

"field1", "field2", "field3"