I'm in a hurry right now, but one thing I can spot immediately: @keys should be $keys, as VARIANTs are always scalars. In this case you have a reference to a SAFEARRAY, not a Perl level array.

Oh, and another thing: Win32::OLE may be treating one dimensional arrays of VT_UI1 specially, so I'm not sure if this might complicate things some more.