sub b {
   return $b;
}

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