for my $element (@final_output) {
                # "e" bedeutet perl innerhalb des Ersetungsteil ausführen,
                # nicht nur Variablen ersetzen
                # "g" bedeutet global arbeiten, alles ersetzen.
                $element=~s/\(tiere\)/$tiere[rand(@tiere)]/eg;
                }