open FH,"test.csv";
while (<FH>){...}
色々な処理
close FH;

色々他にもループ処理をしていまして、無限にならないようにちょこちょこ防止コードを
入れています。
それでtest.csvの行数が$form{get}に足らない場合にもエラー終了したいのですが。

my @test = <FH>;

ということをしたくありません。
scalar <FH>やlength <FH>
とやればいけると思ったのですが、一行目が取り出されてしまいます。
まあ配列じゃなくてあくまで行演算子？なので当然といえば当然ですが。

何かいい智恵はありませんでしょうか？