#! /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;