while ((my $rows = $dbh->do(< 0) {