"Too many arguments" when passing an array to Perl sub?

I have a function below in perl

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

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

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

         }
      }

}

I am calling this function by passing an array argument like below:

create_hash( @files2);

The array has got around 38 values in it. But i am getting compilation errors:

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

what is the wrong that i am doing here?

my perl version is :

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