while ($cols_for_row_B = $sth_atl->fetchrow_array) {
      local $" = "\t";
      print OUTFILE $_;
      print OUTFILE "\n";
    }