How do I break out of a loop in Perl?
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. Is there a workaround for this (besides disabling strict subs)? My code is formatted as follows: for my $entry (@array){ if ($string eq "text"){ break; } } Zain Rizvi Oh, I found it. You use last instead of break for my $entry (@array){ if ($string eq "text"){ last; } } Kent Fredric Additional data (in case you have more questions): FOO: { for my $i ( @listone ){ for my $j ( @listtwo