http://qs321.pair.com?node_id=667736


in reply to to select unique characters

A little shorter syntax:

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