#! /usr/bin/perl
use strict;
use warnings;

my @tiere = qw( hund katze maus );
my @list  = qw( affe (tier) fisch (tier) laus );

for my $item ( @list ) {

        if ( $item eq '(tier)' ) {
                # setze $item auf ein zufaellig ermitteltes element
                # aus @tiere; das element wird dabei aus @tiere
                # entfernt (um doppelte werte zu vermeiden)
                $item = splice( @tiere, int(rand(@tiere) ), 1 );
        }
}

$, = "\n";
print @list;