To accept a reference to one of several specifiers, Perl accepts a grouped \[ specifiers ] form:
  
  sub array_or_hash (\[@%]) {
    print $_[0] ;
  }