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