#This will open the file that will contain the list of tables
open(TABLES, '<DBtest.txt') or die "The file DBnames.txt could not be opened\n";

#This will open the file that will contain the list of SQL statements to be parsed
open(DOUT, '<databaseJoinDan.txt') or die "The file databaseJoinDan.txt could no
t be opened\n";

#This will open the file that will be written to containing the list of tables
#in the SQL files

open(USED, '>>tableUsed.txt') or die "The file tablesUsed.txt could not be writt
en to\n";

#This will convert the files into lists to be searched
@tableList=<TABLES>;
@fileList=<DOUT>;
@tableUsed=<USED>;

#declarations
$Y=0;
$T=0;

#This will search through the files and see if the tables exist in the file

chomp @tableList;
chomp @fileList;
for $Y (@tableList){
        for $T (@fileList){
                if($T =~ /$Y/i){
                print USED "$Y\n";
        }
        }
}#end of the for loop


close(DOUT);
close(TABLES);
close(USED);