perlを用いて単語の並んだファイルを読み込み、1行ごとに配列に格納したいのですが・・・

Question

タイトルの通り、1行に1単語ずつ表記されたファイルを読み込んで配列に格納したいのですが、上手くいかずに困っております。
”ファイル例”
りんご
みかん
ぶどう
バナナ

このようなファイルを読み込み、各単語を配列に順番に格納していきたいのです。
my $file = shift;
open(my $inp, '<',$file);
my @list;
my $j = 0;
while(my $line = <$inp>){
chomp;
$list[$j] = $line;
print $list[$j];
$j = $j + 1;
}

現在このようなプログラムで試しているのですが、1行目の単語、例で言うとりんごがひたすら配列に格納されてしまいます。
ご教授いただけましたら幸いです。

Comments

[otn]

他のユーザから「不正な編集がされた質問」という指摘をうけました
投稿していただいた質問は、後に他の誰かが困ったときに助けになる情報資産になります。
他のユーザにも質問内容が見えるように修正してください。

Answer 1

解決しました、ありがとうございます