my @set = qw(A B C);
  my @list;
  foreach my $one (@set) {
    foreach my $two (@set) {
       push @list,"${one}$two";
    }
  }