func(\@array_real, \%hash_real);


sub func{ my ($array,$hash) = @_; $array->[foo] = ... ; $hash->{bar} = ... ; }

とかしてリファレンス使ったら？