最近プログラム始めました。
どーしてもわからないところで詰まってるので、質問させて下さい。
テキストファイル（ハンドル：TXT)に、
1,名前,メール,内容
2,名前,メール,内容
3,名前,メール,内容
ってな感じでデータ保存してまして、
この最後の行の最初の文字から何行分データがあるか数えたいのですが、

open(TXT,"+>> $txtfile");
@txt = <TXT>; #全データを取り込み、
$last_txt=pop(@txt); #最終行の文字列を取り出して、
@words=split(/,/,$last_txt); #文字列を配列に変換し、
$last_id=shift(@words); #last_idを取り込む
push(@txt,$last_txt); #元に戻す
close(TXT);
ってな感じでやってるのに、$last_id=3となりません。
どこがいけないんでしょうか？