$" = ','; $\ = "\n";
print for <{@products},@{[map "{@$_}", values %options]}>;