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

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

@unique_duplicates = keys %seen;


##</code><code>##

$record=Entry->new();
$record->id(1);
$record->duplicate(0);
$record->src("This is a duplicate.");

push @records, $record;