okay, and here's another way to do it: not so efficient probably, but fun nevertheless

my $base = join ",", qw/A T C G/;
my $L = 4;
my $string = "{$base}" x $L;
my @combinations = glob $string;

print join ":", @combinations;
[download]