for my $element (@final_output) {
                my $counter = @tiere;
                my $put_in = rand($counter);
                $element=~s/\(tiere\)/$tiere[$put_in]/;
                }