in reply to a way to do 'sort|uniq'
use warnings; use strict; my %seen; print sort grep !$seen{$_}++, <DATA> __DATA__ c c b c b b a c a b [download]