sub foo (Num Dog|Cat $numdog, MySig \$a ($i,$j,$k,$mousestatus)) {...}