while ($cols_for_row_B = $sth_atl->fetchrow_arrayref) {
   print OUTFILE join("\t",@$cols_for_row_B),"\n";
}