my %seen;
my @uniq = grep !$seen{$_}++, @lines;