$a->{b} = $_ foreach grep defined, $b;