Dear Monks, I'm trying to learn to use the DBI and AnyData modules and start of with AnyData. A tiny text file

1,apple,2005
2,banana,2002
3,peach,2001
4,apple,2002
5,nuts,2008
[download]

And my script:

#!/usr/bin/perl -w
use strict;
use diagnostics;
use DBI;

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func(
    'test', 'CSV', 'test.csv',
    { sep_char => ',', end_of_line => "\n", col_names => 'number,fruit
+,year' },
    'ad_catalog'
);

my $sth = $dbh->prepare("SELECT year FROM test WHERE fruit ='apple'");
$sth->execute();
while ( my $row = $sth->fetch ) {
    print "@$row\n";
}
[download]

The result I get is: 2005 2 while expecting:

apple,2005
apple,2002
[download]

Someone around who can guide me to the correct outcome?
Thanks, Gert