Dein Output sieht aus wie combinations von Algorithm::Combinatorics, also sowas. In diese Richtung würde ich denken.
Wenn Du anfängst, das selbst mit einer (oder mehreren?) rekursiven Funktionen schreiben zu wollen, müßtest Du wohl das nachbauen, was das Modul schon sehr gut löst.