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