open (MYFILE3, '>>Output1.txt');
open (MYFILE, 'Batches.txt');
print "\n";
 while (<MYFILE>) {
 	chomp;

	$sqlQuery = " select TO_CHAR(dos, 'mm/dd/yyyy') , count(1) from TABLE_A where lookup_field in $_  group by rollup(dos) order by dos" ;
        print "\n $sqlQuery \n";
        $table_data = $db->prepare($sqlQuery) or die "Error in preparing stmt:".$db-errstr;
        $updated = $table_data->execute or die "Can't execute SQL stmt: $DBI::errstr \n"; 

		while (@data = $table_data->fetchrow_array)
	{
		   $info = @data[0];
		   $found = 1;
  
			print MYFILE3 "$info\n";
     }

	$table_data->finish();