use List::Comprehensions;

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