while (@row = $sth->fetch)  # don't do this