http://www.perlmonks.org?node_id=325667


in reply to Conglomerate of arrays with no duplicates

I can't resist the opportunity to post an Abigailish solution:
$" = ','; $\ = "\n"; print for <{@products},@{[map "{@$_}", values %options]}>;