perlってappendモードで開いているファイルに対して
ftell相当のこと出来ないのけ？
出来るなら、「自分が書き込んだ後の末尾の位置」を覚えておいて
再度(行数判定等のために)読み込んだときの合計サイズと一致している場合のみ
(==1000を書き込んだのが自分である場合のみ)
1001を追記したらよいのでは？

既にオープンしているファイルからftellするのは、
I/Oコスト的には大したことないはずだし。