#市場在庫上限下限チェック＆補正
CheckWholeStore();

#イベント終了処理
@event::DT=@DT;
@event::ITEM=@ITEM;
my %group=();
if(defined(%DTevent))

の最後の行を、
if((%DTevent)

としてみるとどうでしょうか。

イベントの終了判定のようですので、一見直っているようでも、イベントが終わらずにいつまでも続いているようだと失敗です。

もしくは、
if(defined(%DTevent))
{
を消してしまってもPerlだと動作する気もします。
この場合、317行目の
}　←　この閉じ括弧も消してください。

#イベント開始処理