Réaliser des permutations dans une liste

Le module List::Permutor offre une fonctionnalité pour le moins originale puisque ce module peut retourner toutes les possibilités de permutation des éléments d'un tableau :

use List::Permutor;

my $oPerm = List::Permutor -> new qw(
                                        1_champ
                                        2_champ
                                        3_champ
                                        4_champ
                              );

while (my @array = $oPerm->next) {
        print "@array.\n";
}