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