sub mygrep (&@) mygrep { /foo/ } $a, $b, $c sub myrand (;$) myrand 42