my @set = qw( A B C D E F );
my $len = 12;
my $result = '';

while (length($result) < $len) {
     my $char = $set[ rand @set ];
     next if substr($result, -2) eq $char x 2;
     $result .= $char;
}
print $result;