Como faço para sair de um loop no Perl?

Estou tentando usar uma breakinstrução em um forloop, mas como também estou usando subs estritos no meu código Perl, estou recebendo um erro dizendo:

Não é permitida a quebra de palavras de barra enquanto "subs estritos" são utilizados na linha 154 .ff.pl.

Existe uma solução alternativa para isso (além de desativar subs estritos)?

Meu código está formatado da seguinte maneira:

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

Oh, eu encontrei. Você usa por último em vez de pausa

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

Dados adicionais (caso você tenha mais perguntas):

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

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

Simplesmente lastfuncionaria aqui:

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

Se você tiver loops aninhados, lastsairá do loop mais interno. Use etiquetas neste caso:

LBL_SCORE: {
    for my $entry1 (@array1) {
        for my $entry2 (@array2) {
            if ($entry1 eq $entry2) { # Or any condition
                last LBL_SCORE;
            }
        }
    }
 }

Dada uma lastdeclaração, o compilador sairá dos dois loops. O mesmo pode ser feito em qualquer número de loops e as etiquetas podem ser fixadas em qualquer lugar.

Em uma iteração grande, gosto de usar interrupções. Basta pressionar Ctrl+ Cpara sair:

my $exitflag = 0;
$SIG{INT} = sub { $exitflag=1 };

while(!$exitflag) {
    # Do your stuff
}