データを収得して、一行目を収得します。

$file = './data.txt';

if(!open(IN,"$file")) { print 'ファイルOPENエラー'}
$line01 = <IN>;
@line02 = <IN>;
close(IN);

ここの$line01という変数に、データの中の一行目が入ります。


最後の行を取り出す場合。

$file = './data.txt';

if(!open(IN,"$file")) { print 'ファイルOPENエラー'}
@line = <IN>;
close(IN);

@LINE = reverse @line;

$line01 = $LINE[0];


この$line01に最後の行が入ります。
reverseで順番を逆にしています。

そして、$LINE[0];で一行目を取り出しています。