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

##</code><code>##

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

##</code><code>##

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