arrays - Perl のプッシュ関数は、配列要素の代わりにインデックス値を提供します

Question

次の形式のデータを含む、mention-freq という名前のテキスト ファイルを読み込んでいます。

1

1

13

2

行を読み取り、値を次のような配列に格納したい: @a=(1, 1, 13, 2). Perl の push 関数は、目的の出力ではなく、インデックス値/行番号、つまり 1、2、3、4 を提供します。エラーを指摘していただけますか？これが私がやったことです：

use strict;
use warnings;

open(FH, "<mention-freq") || die "$!";
my @a;
my $line;
while ($line = <FH>)
{
    $line =~ s/\n//;
    push @a, $line;
    print @a."\n";
}
close FH;