my %seen;
my @unique;

##</code><code>##

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

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

##</code><code>##

my %seen;

$seen{$_}++ for @proc_name1;

##</code><code>##

my %seen;

@seen{@proc_name1} = ();