foreach my $item (@proc_name1) {
    next if $seen{$item};

    $seen{$item} = 1;
    push (@uniq, $item);
}