@one = qw{C A T};
@two = qw{D O G};
@three = qw{B I R D};

##</code><code>##

CDB
ADB
TDB
COB
COI
etc...

##</code><code>##

DAR
BOT
etc...