#use warnings;
use strict;
#use feature qw(switch say);

my $symbols = "sym.txt";
my $data = "data.txt";

open (SYM, $symbols) or die ("$symbols not found");

while (my $symbol = <SYM>)
	{ 
	my $lineNum = 0;
	chomp $symbol;
	open (DATA, $data) or die ("$data not found");

	while (my $line=<DATA>) {
	$lineNum++;
        chomp $line;
        my @array = split ( /[\." "]/, $line );
        my $sym1 = $array[4];
        my $sym2 = $array[7];
        my $sym3 = $array[10];
        my $sym4 = $array[13];
        my $sym5 = $array[16];
        my $sym6 = $array[19];
        my $sym7 = $array[22];
        my $sym8 = $array[25];
		if (( $array[0] =~ m/^exchangeB_groupA$/ ) || ( $array[0] =~ m/^exchangeC_groupA$/ ))
		{

			if ($symbol eq $sym1) { next; }
			elsif ($symbol eq $sym2) { next; }
			elsif ($symbol eq $sym3) { next; }
			elsif ($symbol eq $sym5) { next; }
			elsif ($symbol eq $sym5) { next; }
			elsif ($symbol eq $sym6) { next; }
			elsif ($symbol eq $sym7) { next; }
			elsif ($symbol eq $sym8) { next; }
			else 
			{ 
				print "$symbol\t$array[0](ln$lineNum)\tnot found\n"
			}

		}
	}
}