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


in reply to Foreach loop

Use grep with ^ and $ to match exactly 1

if (my ($matched) = grep /^1$/, @array) { print "found it: $matched\n"; }
Update:

Corrected the code as marked by Bloodnok


All is well