[PERL] Algoritmo per calolare COMBINAZIONI

[Delos]

Salve a tutti, sono 2 giorni che stò perdendo i capelli dietro a un problema che apparentemente è elementare ma che non riesco a risolvere :
ho un array = (1 , 2, 3 ,4 ,5 ...ecc..., n) allora, mi serve di capire come fare a generare:

1
2
3
4
5
1 2
1 3
1 4
1 5
2 3
2 4
2 5
..
..
2 3 4
2 3 5
...
poi a 4, a 5... fino ad n;

In pratica tutte le combinazioni degli n elementi che compongono l'array presi prima 1 ad 1 poi 2 a 2 .... fino tutti insieme. Lo so che ci sono altre dicussioni sull'argomento e che teoricamente su inernet si dovrebbe trovare risposta, ma vi assicuro che sono ore che cerco e non riesco a cavare un ragno dal buco... rompo le scatole sul forum solo perchè mi sono bloccato.... premetto che non mi serve per craccare o fare nulla di simile, ma è solo una parte di un programmino per la bioinformatica che mi serve di modificare.
Ringrazio fin da ora chiunque riuscisse ad aiutarmi a risolvere, in qualunque modo, pseudocodice, java, c, (magari perl... )....
Grazie a tutti e scusate il disturbo