my %seen = map {$_ => undef} @proc_name1; my @uniq = keys %seen;