#!/usr/bin/perl

use strict;
use warnings;

my @array = qw{jacke jeans shirt (kleidung) maus katze hund (tier) (kleidung) (tier)};

my @kleidung = ("jacke");
my @tiere=("Elephant");

for my $element (@array)
{
  $element=~s/\(kleidung\)/$kleidung[0]/;
  $element=~s/\(tier\)/$tiere[0]/;
}

print "@array\n";