Select Code to Download

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->{'Co
+de'}."\t".$result->{'Date'}."\t".$result->{'Comment'}."\n";
}

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