I don't know why this would be wrong, but I can see an alternative way of doing this:

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

Update: sorry for the duplicate reply - zby beat me to it