for $record (@records){
	$duplicates{$_}++ for $record->src;
}

##</code><code>##

for $record (@records){
 $duplicates{$_}++ for $record->src;
 $record->duplicate++;
}