How about:

foreach my $var (@somearray){
   if($var eq "foo"){  &someaction; last;}
}
[download]