in reply to Shorten a list...

sort | uniq -D

[download]

In Section Seekers of Perl Wisdom