CGIゲームなのですが同じログが何個も何個も表示されます。

sub NewsChange {
for ($NC = $NewsMax; $NC >= 2; $NC--) {
$News[$NC] = $News[$NC - 1];
}
$News[1] = $_[0];

$GFyear++;
}

ここらへんが誤動作してそうです・・・。