%seen = ();
 @uniq = ();
 foreach $item (@proc_name1) {
     unless ($seen{$item}) {
       $seen{$item} = 1;
       push (@uniq, $item);
    }
 }