perl で行入力演算子で読みこんでいるとき現在の行が何行目か知る方法はあ
りますか?