my @numbers = qw(123 345 456 567 890);
my %hash;
$hash{$_}++ for @numbers;

for (1,56,123,567,8888) 
{ 
if ($hash{$_})  {print "Found $_\n" }
else           { print "Not found $_\n"; }

}