foreach $a (@arr) {   #read each line in array file

for (my $count=0; $count <5; $count++) {     #iteration for each ID in array file

if(@arr[$count] =~ m/cell\(@arr[$count])){    #match specific line

		print "aa\n";                 #print words at previous line
}
}