while ($row = $sth->fetchrow_hashref) { ...