Combine map and grep to produce an array or results.

my @list_in = qw (
AB1/1 AB1/2 AB1/5 AB1/6 AB1/9
AB2/2 AB2/5 AB2/6 AB2/9 AB2/13);

my @list_c = map {my $x = $_; $_ = grep(/$x/,@list_db) ? "$_ Found" : 
+"$_ Not Found"} @list_in;
print "@list_c";
[download]