open(HH, "<$PATHDATA/query.txt");
open(XX, "<$PATHDATA/dictionary.txt");
open(DD, ">$PATHDATA/query_results.txt");

my $query;
my $line="";
$i=0;
my @query;
	
	while(<HH>){
				chomp;
				push @query,$_; 
					
	}


						
	foreach $query (@query) {
		while($line=<XX>){
			
			if ($line =~ m/^($query)\].*/i) {
				print DD "MATCH:$line\n";
				if($debug){
					print GREEN, "QUERY:$query\n";
					print MAGENTA, "MATCH:$line\n";
				}
			}
		}
	}