$counts{$_}++ for @test;

##</code><code>##

for (@test) {$counts{$_}++}

##</code><code>##

@redundant = grep {++$counts{$_} > 1} @test;

##</code><code>##

@redundant = grep {++$counts{$_}==2} @test;