my $cwidths = Variant(VT_BSTR|VT_ARRAY|VT_BYREF, [1,371]);