while ( @{$rowcache} ) {
    my $result = shift @{$rowcache};
    ....