Perhaps you're unfamiliar with this glob trick?

perl -le 'print for glob("{a}:{x,y,z}:{1,2}")'
a:x:1
a:x:2
a:y:1
a:y:2
a:z:1
a:z:2
[download]

-Blake