foreach ($b) { $a->{b} = $_ if defined $_; }