perl - Perl でスクリプトの引数としてファイルの最初の行を取得する

Question

そのため、ファイルの最初の行を取得し、その情報を後で何らかの目的に使用する必要があります。また、同じファイルから残りの行を取得し、最初の行の情報を使用して何かを行う必要があります。私はこれを教科書で試しました：

while (defined ($lines = <>))
    {
      #do something
    }

Perl でこれから最初の行を抽出する方法は?.. 私はプログラミングの初心者です。