Select Code to Download

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";