Select Code to Download

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

$ perl -MO=Deparse,-p -e 'sub myrand (;$) {} rand 123 / rand 456; myra
+nd 123 / myrand 456'
sub myrand (;$) {}
...
sub mygrep (&@) {}
  grep(    {$A;}    grep(    {$B;}  1));
mygrep(sub {$A;}, mygrep(sub {$B;}, 1));