@duplicates = grep $seen{$_}++, @temp;

# here we count how many times each duplicate appears
%seen = ();
	
foreach my $item (@duplicates) {
    $seen{$item}++;
}

@unique_duplicates = keys %seen;