Как в Perl сгенерировать все возможные комбинации списка?

У меня есть файл со списком, и мне нужно сделать файл, который сравнивает каждую строку с другой. например, в моем файле есть это:

AAA  
BBB  
CCC  
DDD  
EEE

Я хотел бы, чтобы окончательный список выглядел так:

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

Я пытаюсь сделать это в Perl, в первый раз, и у меня возникли небольшие проблемы. Я знаю, что вам нужно сделать массив, а затем разбить его, но после этого у меня возникли проблемы.