Bạn có thể sử dụng hàm fetchall_arrayref chấp nhận đối số 'maxrows':
while (my $data = $dbc->fetchall_arrayref(undef, 10000)) {
for my $row( @{$data} ) {
$report->process_record($row);
}
}
Bạn cũng có thể xem RowCacheSize thuộc tính cố gắng kiểm soát số lượng bản ghi được trả về trong một lần tìm nạp từ trình điều khiển của bạn.