En Perl, comment puis-je générer toutes les combinaisons possibles d'une liste?

J'ai un fichier avec une liste, et un besoin de faire un fichier qui compare chaque ligne à l'autre. par exemple, mon fichier a ceci:

AAA 
BBB 
CCC 
DDD 
EEE

Je voudrais la liste finale pour ressembler à ceci:

AAA BBB 
AAA CCC 
AAA DDD 
AAA EEE 
BBB CCC 
BBB DDD 
BBB EEE 
CCC DDD 
CCC EEE 
DDD EEE

Je suis en train de le faire en Perl, pour cette première fois et je suis d'avoir un peu de mal. Je sais que vous avez besoin de faire un tableau, et de la diviser ensuite, mais après cela, je vais avoir quelques problèmes.

Merci de poster votre jusqu'à présent code.

OriginalL'auteur user1352084 | 2012-04-24