in reply to Fast way - get array elements > 4 chars
my %seen; my @long = grep length>4 && !$seen{$_}++, @array; [download]