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

You don't actually need the parentheses around @proc_name1. You can also avoid the for loop if you wish by using a hash slice.

my %seen;
@seen{@proc_name1} = ();
[download]

I hope this is of interest.

Cheers,

JohnGG