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