Select Code to Download

my @test = qw(camel aplaca peguin aplaca 
              monkey camel camel);
my %temp;
my @redundant = grep $temp{$_}++ == 1, @test;
print "@redundant\n";