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

##</code><code>##

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

##</code><code>##

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