use strict;

my (@a,@b);
@a=@b=("test1","test2(X)");

foreach(@a) {
	my $x=$_;
	if(grep(/^$x$/,@b)) {
		print "\"$x\" exists in \"@b\"\n";
	} else {
		print "\"$x\" doesn't exist in \"@b\"\n";
	}
}