in reply to Perl to Add newline at the end of each row of comma seperated strings in an array ?
You may also be interested in List::MoreUtils::uniq().
Give a man a fish: <%-{-{-{-<