$dest->{$_} = $orig->{$_} for grep /oo/, keys %$orig;