{ $a->{'b'} = do {$b or last} }

##</code><code>##

($a->{'b'} = $b) or delete $a->{'b'};