ファイルを読み込んで配列に格納する

#======================= コードここから
#ファイルを読み込んで配列に格納する
open IN_FILE, "<./test.pl" or die( "ファイルのオープンに失敗" );
@lines = <IN_FILE>;
close IN_FILE;

#配列の内容を１つずつ取り出して表示する
foreach $line ( @lines ){
 print $line;
}

exit;
#======================= コードここまで

上記を test.pl として保存して実行すると、自身のファイルの内容を出力する。