Help for this page

Select Code to Download

Select or download this

use List::Comprehensions;

local $"=",";
print comp1 { "@_\n" } [1,2], [qw(a b)], [qw(# * &)];

Select or download this
```
1,a,#
1,a,*
...
2,b,#
2,b,*
2,b,&
```