my $rowcache = runQuery($query,"Table",\@ids); print "RunQuery results: ".scalar(@$rowcache)." rows\n"; #### while (my $result = shift(@$rowcache) ) { print OUT $result->{'id'}."\t".$result->{'Name'}."\t".$result->{'Code'}."\t".$result->{'Date'}."\t".$result->{'Comment'}."\n"; } #### foreach my $result (@$rowcache) { print OUT $result->{'id'}."\t".$result->{'Name'}."\t".$result->{'Code'}."\t".$result->{'Date'}."\t".$result->{'Comment'}."\n"; }