#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11139200
use warnings;
use List::Util qw( none );
$| = 1;

my @strings;
while( @strings < 10 )
  {
  my $try = join '', map +('A' .. 'Z')[rand 26], 1 .. 5;
  if( none { ($try ^ $_) =~ tr/\0//c < 3 } @strings )
    {
    push @strings, $try;
    print "$try ";
    }
  }
print "\n";