sub foo (\[$@%]) { print "received a $_[0]\n" }

foo( $a );
foo( @a );
foo( %a );