$VAR1 = bless( {
       'Test' => bless( {
              'Environment' => bless( {}, 'Win32::OLE' ),
              ...

##</code><code>##


    my $testObj = Win32::OLE->new( $self->{qtp}->Test->Environment );
    $testObj->{'DUT_Version'} = "123";

    $self->{qtp}->Test->Environment->{'Value'} = $testObj;