while (my $row = $sth->fetchrow_arrayref()) {
    print  join( ",", map( {"\"$_\""} @$row)), "\n";
}