while(my $ref=$sth->fetchrow_arrayref) {
  ...
}