open(vote,"<vote.log");
@votenum=<vote>;
close(vote);

$votenum[$num] = $votenum[$num] + 1;

open(vote,">vote.log");
print vote @votenum;
close(vote);

これってどこが間違ってるんでしょう？
vote.logを配列@votenumに読み込んで、
$numが3だったら$votenum[3]をプラス1にして、
@votenumをvote.logファイルとして上書きする、という部分なのですが。
お願いします。