exists $$all_names{$name};
%$all_names ~~ $name; # Shortcut using the smartmatch operator

##</code><code>##

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