open(HH, "<$PATHDATA/query04.txt");


	chomp( my @query_arr = <HH> );

close HH;


open(XX, "<$PATHDATA/multisearch_final_sorted_3.txt");
open(DD, ">$PATHDATA/query_results.txt");
my $count=0;
while ( my $line = <XX> ) {
if ($debug) {
				print MAGENTA, "LINEA:$line\n";
					}
	for my $query_el (@query_arr) {
		if ($debug) {
					print GREEN, "QUERY:$query_el\n";
		}
		if ($line =~ /^$query_el\]\[.*/i) {
					if ($debug) {
					print GREEN, "QUERY:$query_el\n";
					print MAGENTA, "MATCH:$line\n";
					}
					print DD "QUERY:$query_el\n";
					print DD "MATCH:$line\n";
					print DD "#################";
					$count ++;
		}
	}
}
				print DD "Entrate trovate: $count";
		
	
		
		close XX;
		close DD;

	exit 0;