#!/usr/bin/perl -l

use strict;  
use warnings;
use Algorithm::Permute;

my(@arr) = qw/A B C/;

my $p = new Algorithm::Permute([@arr], 2);
while (my(@res) = $p->next) {
    do {
        print join(", ", @res);
    };  
}
exit 0;