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