Perl - DBI游标获取X行数

Question

我正在执行Perl脚本，该脚本访问Oracle数据库上的过程并获取光标。 当我尝试一次迭代一行光标时，我崩溃了，我认为结果集太大而无法以这种方式迭代。 我得到的错误是 ORA-03113 有没有办法一次从光标请求X行并迭代它们？并且要这样做，直到光标没有更多的行提供？

while ($row = $query_result->fetchrow_arrayref()) { ... }