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);