my %seen;
my @row;
while ( @row = $sth_C->fetchrow_array )
{
    my $krow = join "\0", @row;
    $seen{$krow}++ and next; # or did you mean last?
    print OUTPUT_FILE join( "\t", @row ), "\n";
    undef @row;
}