my @test = qw(camel aplaca peguin aplaca 
              monkey camel camel");
my @redundant;
for (@test) {
   next if grep ("$_", @redundant);
   push (@redundant, $_);
}
print "@redundant\n";