##
\($object: $a, @b, %c)
####
sub foo (Num Dog|Cat $numdog, MySig \$a ($i,$j,$k,$mousestatus)) {...}
####
foo($mynumdog, \(1, 2.7182818, 1.0i, :mice($ms))
####
foo($mynumdog, \(1, 2.7182818, 1.0i, $ms)
####
@x[f()] = g(); # list context for f() and g()
@x[f()] = +g(); # list context for f(), scalar context for g()
@x[+f()] = g(); # scalar context for f() and g()