my %seen;

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