in reply to Re^2: removing duplicate entries from an array
in thread removing duplicate entries from an array

Dirtier: 
print join ', ', keys %{(grep \@{$_}{@XYZ}, {})[0]};

[download]
;-)
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom