Written like it's said, "Copy each selected key":

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

There's no need to twist one's mind to process the parent's expression.