my $VAR1 = bless( {
                'NAME' => [
                            bless( {
                                     'STRING' => 'hello world'
                                   }, 'Embded' )
                          ]
              }, 'Vater' );


print $VAR1->{NAME}->[0]->{STRING}, "\n";
print $VAR1->{NAME}[0]{STRING}, "\n";

my $object = $VAR1->{NAME}[0];
print $object->{STRING}, "\n";