$ perl -le'print for glob "{a,b,c}{d,e,f}"'
ad
ae
af
bd
be
bf
cd
ce
cf

##</code><code>##

cp file{,.bk}

##</code><code>##

cp file file.bk