Durch Rekursion, dazu musst du alles in eine Funktion packen, die sich selbst aufruft. Die Uni Bayreuth hat auf ihrer Homepage ein Beispiel hierfür in Perl: http://www.mathe2.uni-bayreuth.de/perl/GK/rekursiv.htm

Gruss,
Ronnie