my @long = grep !$seen{$_}++, grep length>4, @words;