将Perl数组取消引用作为参数传递给子例程时，它无法正常工作

我将数组作为对子对象的引用。我必须在其中添加值，但无法正常工作。我的代码是：

my @scalarArray1 = ();

sub CompareScalers() {
    fillScalarArray( $_[0], \@scalarArray1 );    #pass arrays by ref
}

sub fillScalarArray() {
    my $filename = $_[0];                        #first file name as input file
    open( my $fh, '<:encoding(UTF-8)', $filename ) or die "Could not open file '$filename' $!";
    my @array = @{ $_[1] };
    while ( my $row = <$fh> ) {
        push( @array, $row );
    }
}

在while循环结束时，调试打印的数组大小如下：

 DB<29> p $#scalarArray1
-1
 DB<30> p $#array
1551