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