b05bdc00lnz64 

 b05hrn23ud0d3 

 b05bgn00lnz00 

 b05bgn01lnz00 

##</code><code>##

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