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).