@test = ("camel","alpaca","penguin","alpaca","monkey","camel","camel");
my %counts;
$counts{$_}++ foreach @test;
@redundant = grep { $counts{$_}>1 } keys(%counts);