##################
#TASK DESCRIPTION#
##################

##</code><code>##

##################
#FILE_A (sym.txt)#
##################

##</code><code>##

A
AA
ABC
ADF
BFD
EFF
ZFF
ZZD

##</code><code>##

###################
#FILE_B (data.txt)#
###################

##</code><code>##

exchangeA_groupA.gateway_risk=A 10 10 AA 10 10 ABC 10 10 ADF 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeA_groupB.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeA_groupC.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeB_groupA.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeB_groupB.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeB_groupC.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeC_groupA.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10 ZZD 10 10
exchangeC_groupB.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeC_groupC.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeD_groupA.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 RFD 10 10 ZFF 10 10
exchangeD_groupB.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10
exchangeD_groupC.gateway_risk=A 10 10 AA 10 10 ABC 10 10 EFF 10 10 MMM 10 10 NDB 10 10 RFD 10 10 ZFF 10 10

##</code><code>##

###########
#MY SCRIPT#
###########

##</code><code>##

#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"
			}

		}
	}
}

##</code><code>##

############
#MY RESULTS#
############

##</code><code>##

A	exchangeB_groupA(ln4)	not found
A	exchangeC_groupA(ln7)	not found
ADF	exchangeB_groupA(ln4)	not found
ADF	exchangeC_groupA(ln7)	not found
BFD	exchangeB_groupA(ln4)	not found
BFD	exchangeC_groupA(ln7)	not found
ZZD	exchangeB_groupA(ln4)	not found