Select Code to Download

use strict;
use Data::Dumper;
...
$object->{a}->{var2} = $dummy;

print Dumper($object);

$VAR1 = bless( {
                 'a' => bless( {
...
                                 'var1' => $VAR1->{'b'}{'var1'}
                               }, 'C' )
               }, 'MyMain' );