my $rowcache = runQuery($query,"Table",\@ids);
print "RunQuery results: ".scalar(@$rowcache)." rows\n";

##</code><code>##

while (my $result = shift(@$rowcache) ) {   
   print OUT $result->{'id'}."\t".$result->{'Name'}."\t".$result->{'Code'}."\t".$result->{'Date'}."\t".$result->{'Comment'}."\n";
}

##</code><code>##

foreach my $result (@$rowcache)  {
    print OUT $result->{'id'}."\t".$result->{'Name'}."\t".$result->{'Code'}."\t".$result->{'Date'}."\t".$result->{'Comment'}."\n";
}