配列参照perlを印刷できません

Question

最初の関数内で配列を出力しましたが有効です。私は2番目の機能でそれを印刷することはできません。

エラーメッセージ：ARRAY REFとして文字列（ "1"）を使用できないConvertToVformat.plラインでの使用における "厳密な参考文献" 24

my $dir = cwd(); 
my $source_files = DetermineSourceFiles(); 
DetermineFileInfo($source_files); 

sub DetermineSourceFiles { 
    my @source_files; 
    opendir my $dh, $dir or die "Cant open $dir: $!"; 
    while (my $file = readdir($dh)) { 
     if ($file =~ /(.*?\d+.bin)/) { 
      push @source_files, $file; 
     } 
    } 
    closedir $dh; 
    return \@source_files; 
} 

sub DetermineFileInfo { 
    my $source_files = (@_); 
    foreach my $file (@$source_files) { 
     print "$source_files\n"; 
    } 
} 

Answer 1

使用

my $source_files = shift; 

一方代わりに

my $source_files = (@_); 

の詳細はdocumentation of shiftを参照してください。