Select Code to Download

#!/usr/bin/perl -l
use warnings;
use strict; 
...
    do {print join("", @res);};} 
close FH; 
exit 0;

WELCOME to Permutation Analysis:

 All Possible Permutations of 2 Elements out of 3 .i.e. 3 P2: