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