# after getting @number my $wanted = '9432'; for (@number[0..99]) { if (index($_, $wanted) != -1) { print "match found\n"; } else { print "match failed\n"; } }