Select Code to Download

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

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

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