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. 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);
Hope that helps