while (my @row = $sth->fetchrow_array) {