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