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