in reply to Passing a file handle and two arrays to a function by reference.

You pass scalars to your sub. Use scalars in your sub: 
sub myfunc {
    my ($file, $aref1, $aref2) = @_;
    my @array1 = @{ $aref1 };

[download]
Pass by Reference
  • Comment on Re: Passing a file handle and two arrays to a function by reference.
  • Download Code

In Section Seekers of Perl Wisdom