Zrychlení perl DBI fetchrow_hashref

Můžete použít funkci fetchall_arrayref, která přijímá argument 'maxrows':

while (my $data = $dbc->fetchall_arrayref(undef, 10000)) {
  for my $row( @{$data} ) {
    $report->process_record($row);
  }
}

Můžete se také podívat na RowCacheSize vlastnost, která se pokouší řídit, kolik záznamů je vráceno při načtení z vašeho ovladače.