in reply to grep for hash?

Not me my %new =  map { $_ => $orig{$_}; } grep {/$my_regexp/ } keys %orig;

In Section Seekers of Perl Wisdom