for構文にて自力解決できました。
ありがとうございました。

わかりました〜。解決されてよかったです。
開発元や商人物語のサイトも放置されていたり閉鎖されている所が多いですね。

perlのバージョンアップに合わせてdefineでエラーを吐くようになったまま放置されていたりと、ちょっと寂しいものがありますね。

今後もご迷惑でなければ改造相談させていただければと思います。

またご相談させていただきます。
inc-funcにて個人データの変数を追加し、
inc-turnでターン毎の売り上げ計算に合わせてステータスが変わるようにする変更を加えたところ、最初は問題なく動いておりましたが、何らかのトリガー（イベント発動判定の処理？）で知らないうちにエラーが出ておりました。

「../program/inc-turn.cgi」の 356行目付近に原因があるようです。
Undefined subroutine &event::stock_le called at ../program/inc-turn.cgi line 356.

特段イベント関連はいじっておらず、原因に心あたりがありません…
もし同じようなご経験があればアドバイスいただけるとありがたいです。

返信が遅くなってすいません。
既に解決しているかもしれませんが、私の改造ではinc-funcやinc-turnはあまり改造していないので、原因がよくわかりません。

そのサブルーチンが他のファイルで定義されているのなら、上のほうで
RequireFile('xxx.cgi');
みたいにしたほうがいいかもしれません。
また、ログに書き込む処理は
Lock();
RenewLog();
DataWrite();
DataCommitOrAbort();
UnLock();
みたいにした気がします。

代替案としては、決算毎にアイテムの総売り上げを合計して、ステータスを変更することは
できます。inc-item-data.cgiの改造で済みます。


sub UpdateResetBefore #決算直前の処理(関数名固定)　

#ユーザー変数に、本日(決算期ごと)の売り上げ×価格を足す処理はたぶん以下

foreach my $DT (@DT){

$DT->{user}->{param} = $DT->{user}->{param} + $DT->{itemtoday}{アイテム番号} * $ITEM[アイテム番号]->{price}
}

よろしくお願いします。