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