Help for this page
my @row; while ( @row = $sth_C->fetchrow_array ) ... undef @row; }
my $krow = join "\0", @row;
$seen{$krow}++ and next;
print OUTPUT_FILE join( "\t", @row ), "\n";