while ( defined(my $result = shift @$rowcache) )