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