$object->{b}->{var1} = \$object->{a}->{var2};