¿Cómo salgo de un bucle en Perl?

Estoy tratando de usar una breakdeclaración en un forbucle, pero como también estoy usando subs estrictos en mi código Perl, recibo un error que dice:

La palabra "break" sin palabra no está permitida mientras se usan "subs estrictos" en ./final.pl línea 154.

¿Hay alguna solución para esto (además de deshabilitar los subs estrictos)?

Mi código tiene el siguiente formato:

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

Oh, lo encontre. Usas último en lugar de descanso

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

Datos adicionales (en caso de que tenga más preguntas):

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

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

Simplemente lastfuncionaría aquí:

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

Si tiene bucles anidados, lastsaldrá del bucle más interno. Use etiquetas en este caso:

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

Dada una lastdeclaración hará que el compilador salga de ambos bucles. Lo mismo se puede hacer en cualquier número de bucles, y las etiquetas se pueden arreglar en cualquier lugar.

En una iteración grande, me gusta usar interrupciones. Simplemente presione Ctrl+ Cpara salir:

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

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