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