my $newObj = Win32::OLE->new("TestArray.PArray");
my $resultsArray; #= Variant(VT_BYREF, Variant(VT_EMPTY));
$resultsArray = $newObj->returnScriptingObj1();
print Dumper($resultsArray);<br>