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

##</code><code>##

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