in reply to grep for hash?
my %new_hash = map /$my_regexp/ ? ( $_ => $original_hash{ $_ } ) : (), + keys %original_hash; [download]