my %seen; my @filtered = grep !$seen{$_}++, @arr2;