my %count;
for (@items) { $count{$_}++ }
my @dups = grep { $count{$_} > 1 } @items;

##</code><code>##

my (%count, @dups);
for (@items) { $count{$_}++ == 1 && push(@dups, $_) }