#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

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

my %lut  = (
    "(kleidung)"  =>  "jacke",
    "(tier)"      =>  "elephant",
);

print Dumper [map { exists $lut{$_} ? $lut{$_} : $_ } @list];