defined

標準入力等から１行読み込む場合、<STDIN>とかを使いますが、
これ以上読み込む行が存在しない場合やファイルの最後の場合、undefが返ってきます。
入ってきた１行が存在しないか、最後かを判定する為にdefinedで判定します。

$line = <STDIN>;
if (!defined ($line)) {
   # 最後
}