PHPの初心者です。

いろいろな、プログラムサンプルを結合して、プログラムを作成しております。

下記、foreachから抜け出すために、”5”以上になったらforeachをBreakするということがやりたいのですが、

-------------------
# 使用するモジュールの読み込み
use strict;
use warnings;
use Encode;

<<　途中省略　>>

foreach $result1 ( reverse( @{$response1->{'results'}} ) ) {
my $text1 = Encode::encode('utf8', $result1->{'text'});

<<　途中省略　>>

if ( $count > 5 )
{
$count = 0;
break;
}
else
{
$count = $count + 1;
}
}

Bareword "break" not allowed while "strict subs" in use at /var/www/html/bbs/combot2/combot.pl line 46.
（46行は、breakの箇所です。）
というエラーがでます。解放をおしえてください。