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";
}