Help for this page
foreach (@SQL_queries) { ... undef @SQL_queries;
while ($cols_for_row_B = $sth_atl->fetchrow_array) { ... print OUTFILE "\n"; }