while (my @row = $sth_C->fetchrow_array) {

      print OUTPUT_FILE join("\t", @row);
      print OUTPUT_FILE "\n";
      
      undef @row;
}