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