http://www.perlmonks.org?node_id=1020110


in reply to Search in array from match in another array, print once only.

Change loop to:

foreach $string(@array) { my $found = 0 ; foreach $string2(@original) { if ($string eq $string2) { $found = 1; } } if ($found == 0) { print "$string not found\n"; } else { print "$string found\n"; } }

Also use strict and warnings ...