Perlでループから抜け出すにはどうすればよいですか？

ループでbreakステートメントを使用しようとしていますforが、Perlコードでstrict subsも使用しているため、次のエラーが表示されます。

./final.pl 154行目で「strict subs」を使用している間は、単語の「ブレーク」は許可されません。

これに対する回避策はありますか（厳密なサブを無効にする以外に）？

私のコードは次のようにフォーマットされています：

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

ああ、見つけた。あなたは休憩の代わりに最後を使用します

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

追加データ（さらに質問がある場合）：

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

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

単にlastここで動作します：

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

ネストされたループがある場合lastは、最も内側のループから抜けます。この場合はラベルを使用します。

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

与えられたlast文は、コンパイラが両方のループから出てくるようになります。同じことが任意の数のループで実行でき、ラベルはどこにでも固定できます。

大規模な反復では、割り込みを使用するのが好きです。Ctrl+ Cを押すだけで終了します。

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

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