johngg@shiraz:~/perl/Monks > perl -E 'say for glob q{{A,C,G,T}} x 3'
AAA
AAC
AAG
AAT
ACA
ACC
ACG
ACT
...
TGA
TGC
TGG
TGT
TTA
TTC
TTG
TTT