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