How do I break out of a loop in Perl?

Question

Hi,

I'm trying to use a break statement in a for loop, but since I'm also using strict subs in my Perl code I'm getting an error saying:

Bareword "break" not allowed while "strict subs" in use at ./final.pl line 154.

Does anyone know of a workaround for this (besides disabling strict subs)?

My code is formatted as follows:

for my $entry (@array){
    if ($string eq "text"){
         break;
    }
}

Thanks

Answer 1

Oh, I found it. You use "last" instead of "break"

Answer 2

Additional Data ( In case you have more questions ):

FOO: { 
       for my $i ( @listone ){ 
          for my $j ( @listtwo ){ 
                 if ( cond( $i,$j ) ){ 

                    last FOO;  # --->
                                   # | 
                 }                 # |
          }                        # |
       }                           # |
 } # <-------------------------------