«Слишком много аргументов» при передаче массива в подпрограмму Perl?

У меня есть функция ниже в perl

sub create_hash()
{
my @files = @_;

        foreach(@files){
         if(/.text/)
         {

         open($files_list{$_},">>$_") || die("This file will not open!");

         }
      }

}

Я вызываю эту функцию, передавая аргумент массива, как показано ниже:

create_hash( @files2);

В массиве около 38 значений. Но я получаю ошибки компиляции:

Too many arguments for main::create_hash at....

что плохого в том, что я здесь делаю?

моя версия perl:

This is perl, v5.8.4 built for i86pc-solaris-64int
(with 36 registered patches, see perl -V for more detail)