#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;

my $dbh = DBI->connect(qq{DBI:CSV:f_dir=.;csv_eol=\n}, undef, undef, {RaiseError => 1});
my $sth = $dbh->prepare('SELECT VALUE FROM MyTable WHERE COLA = ? AND COLB = ?');
$sth->execute('baz', 'bar');
my @r = $sth->fetchrow_array();
print Dumper \@r;