Select Code to Download

package NestedMap;

...
        $f->($_);
    } @_
}

# show all combinations of (A,B,C) (a,b,c) and (1,2,3)
print join("\n",
...
    } qw(a b c)
  } qw(1 2 3)
);

nestedmap { ... } list

nestedmap sub { ... }, list