Select Code to Download

my %seen = ();
my @uniq = ();
...
       push (@uniq, $item);  # and again
   }
}

my %seen;
$seen{$_} = 1 for (@proc_name1);