my %seen; my @uniq = grep !$seen{$_}++, @proc_name1; #### my @uniq = do { my %seen; grep !$seen{$_}++, @proc_name1; };