http://www.perlmonks.org?node_id=932734


in reply to passing multiple hashes to a subroutine

I asked the same thing once too here's the answer I used to great success. http://www.perlmonks.org/?node_id=903429 And a small snippet from my working code. 
sub report {
    our %hash1; local *hash1 = $_[0];
    our %hash2; local *hash2 = $_[1];
    our %hash3; local *hash3 = $_[2];
    
    my $othervar1 = $_[3];
    my $othervar2 = $_[4];
... do stuff ...
}

# call it
report(\%hash1, \%hash2, \%hash3, $othervar1, $othervar2);

[download]
Hope that helps

In Section Seekers of Perl Wisdom