doSub (\@array1, \%hash1, \@array2, ...);


sub doSub {
   my ($array1Ref, $hash1Ref, $aray2Ref, ...) = @_;

   my $value = $array1Ref->[$index];
   $value = $hash1Ref->{key};
   ...
}