Rekrsive Funktion in Perl

[Dietrich]

Hallo,
wie muss ich im folgenden Beispiel vorgehen, dass beim Folgeaufruf der Routine addtext im Argument @text der Wert steht, der im Aufruf zuvor zurückgegeben wurde.
Im Augenblick wird addtext immer mit "*" aufgerufen, obwohl im Ergebnis @text des Aufruf "*;irgendwas" steht.

my @text = ("*");
       foreach (@zeilen)
         {
          @text = addtext ($_, @text);
         }