while (my $ref = $sth->fetchrow_hashref ())