Indeed! I am trying to generate an exhaustive list of SMILES codes, including their repetitions. I have tried

 use strict; use warnings;
use Algorithm::Combinatorics qw(permutations);

my $strings = [qw(A
B
C)];

my $iter = permutations($strings, 3);

while (my $c = $iter->next) {
    print "@$c\n";
}
[download]

The problem is that it does not generate things like AAA, BBB, CCC [A, B, C would be the corresponding SMILEs).