With DBD::Anydata in CSV mode do we need to define the field definition still?

Yes you do. Because you are creating the table using SQL, you need to form a valid SQL statement to work properly.

There is another way to create the table - by directly creating the underlying CSV file. This way you do not have to specify field definitions at all:

use strict;
use warnings;
use DBI;
use DBD::AnyData;
use IO::File;

my $table = "data";
my @fields = qw/ id name /;

# === create an empty CSV file ===
my $csvfile = new IO::File "./data.csv", "w"
    or die "Can not create CSV file";
print $csvfile join(',', @fields), "\n";
undef $csvfile;

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):')
    or die "Can not create database connection";

$dbh->func( 'data', 'CSV', './data.csv', 'ad_catalog');

$dbh->do("INSERT INTO $table VALUES ('01', 'DUMMY' )")
    or die "Can not insert into data table";

$dbh->disconnect();
[download]