Select Code to Download

my $rowcache;
while (my $aref = shift(@$rowcache)
|| shift ( @{$rowcache= $sth->fetchall_arrayref(undef, $max_rows)} )
)

       Here’s an example (assumes RaiseError is enabled):

...
         ) {
           ...
         }