use strict;
use warnings;
use Text::CSV;
use DBI;
use Data::Dumper;
  
# Connect to the database, (the directory containing our csv file(s))
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
      f_dir   					=> ".",
      f_ext   					=> ".csv",
      f_encoding  				=> "utf-8",
      RaiseError				=> 1,
      }) or die $DBI::errstr;

  
# Output using sql query
my $query = (qq(select * from newCsv.csv WHERE gender ='male' AND genotype ='a' ));
# my $columns = "sid = $row->{sid} \tgender = $row->{gender}\n"; # perl is seeking declaration of $row
my $queryResult;
my $sth = $dbh->prepare($query);
$sth->execute;

while (my $row = $sth->fetchrow_hashref) {
my $col= "sid = $row->{sid} \tgender = $row->{gender}\n";  # cannot change this to my $col=$columns
$queryResult = $queryResult.$col; 
}    

$sth->finish();
$dbh->disconnect(); 
print "Result \n\n$queryResult";