Hmmm...how about %seen = (); @uniq = grep(++$seen{$_} == 2, @items); -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/kw-pm/attachments/20060419/c14e1719/attachment.html