$VAR1 = bless( {
                 'INTERFACE' => [
                                  undef,
                                  'vlanX'
                                ],
                 'LOCATION' => 'X3',
                 'ACELOGICAL' => 'user',
                 'CHILD' => [
                              bless( {
                                       'IPROUTE' => '0.0.0.0 0.0.0.0 xxx.xxx.x.x.',
                                       'NAME' => 'vlanX',
                                       'ACE' => 'ACEx',
                                       'CHILD' => [
                                                    bless( {
                                                             'IPROUTE' => undef,
 'NAME' => 'name',
 'INTERFACE' => 'vlanX',
 'ACE' => undef,
 'SERVERFARM' => undef,
 'CHILD' => [],
 'OSID' => [],
 'ALIAS' => undef,
 'OBJECTID' => undef,
 'PARENT' => [
               $VAR1->{'CHILD'}[0]
             ],
 'MASTERSHAPE' => 'ACE_RSERVER',
 'CONTEXT' => 'Cntext',
 'SHAPEID' => [],
 'IPADDRESS' => 'xxx.xxx.x.xx'
}, 'some value' ),
                                                             'IPROUTE' => undef,
 'NAME' => 'name',
 'INTERFACE' => 'vlanX',
 'ACE' => undef,
 'SERVERFARM' => undef,
 'CHILD' => [],
 'OSID' => [],
 'ALIAS' => undef,
 'OBJECTID' => undef,
 'PARENT' => [
               $VAR1->{'CHILD'}[0]
             ],
 'MASTERSHAPE' => 'ACE',
 'CONTEXT' => 'some value ',
 'SHAPEID' => [],
 'IPADDRESS' => 'xxx.xxx.x.xx'
}, 'some value' ),
.
.
.