my $Array = Win32::OLE::Variant->new(VT_ARRAY|VT_R8, [1,2], 2);
vs.
my $Array = Win32::OLE::Variant->new(Win32::OLE::Variant::VT_ARRAY|Win32::OLE::Variant::VT_R8, [1,2], 2);