Re^2: Search in array from match in another array, print once only.

[tmharish]

More importantly its more efficient if you use a hash:

use strict   ;
use warnings ;

my @array    = ( "54321", "54312", "5999", "54352", "12345" ) ;
my @original = ( "12345" , "54321" , "12355"                ) ;

my %hash  = map( { ( $_ => 1 ) } @original ) ;
print "". ( ( $hash{ $_ } ) ? "$_ Found\n" : "$_ Not Found\n" ) foreac
+h ( @array ) ;