in reply to to select unique characters
my %seen = map {$_ => undef} @proc_name1; my @uniq = keys %seen; [download]