@good = grep { %$all_names ~~ $_ } @arr_of_names;