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


in reply to Flag variables

How about: 
foreach my $var (@somearray){
   if($var eq "foo"){  &someaction; last;}
}

[download]

In Section Seekers of Perl Wisdom