for my $entry ( uniq @{ $X{$article} } ) {