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" ) foreach ( @array ) ;