$ perl -le 'print for glob( q{{a,b}{c,d}} );'
ac
ad
bc
bd
$