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


##</code><code>##

#!/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";
}


##</code><code>##

apple,2005
apple,2002