@new{ @keys } = @orig{ @keys = grep /[adf]/, keys %orig };