Using DBI and DBD::CSV:

use Modern::Perl qw/2014/;
use DBI;

my $dbh = DBI->connect("dbi:CSV:");

my $query =
"SELECT col1, count(col1) AS counter FROM test.csv WHERE  col5 = 'yes'
+ GROUP by col1 ORDER BY col1";
my $sth = $dbh->prepare($query);
$sth->execute();
while ( my $row = $sth->fetchrow_hashref ) {
    say $row->{col1}, "\t", $row->{'counter'};
}
[download]

Output:

dave   2
james  2
jon    4
ken    1
mike   1
[download]