Select Code to Download

my %seen;
my @unique;

foreach my $item (@proc_name1) {
    next if $seen{$item};
...
    $seen{$item} = 1;
    push (@uniq, $item);
}

my %seen;

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

my %seen;

@seen{@proc_name1} = ();