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