Rekrsive Funktion in Perl

[Skrilax]

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);
         }

Dazu müsste man wohl wissen, was in der Funktion "addtext" drin steht. Kennst du auch die Funktion "push"? Vermutlich willst du nur sowas in der Art haben:

push @text, @zeilen;

Damit wird einfach das Array @zeilen an @text angehängt.