I know that this is amazingly belated, but I've been wrestling with the same issue myself and came across this thread. There's actually an easier solution to iterating over OLE collections, and it goes a little something like this:

use Win32::OLE 'in';
foreach $member (in $collection) { #do some stuff }
[download]

Oddly enough, I gleaned this from the Win32::OLE docs :-). The 'in' function is not exported by default, so you need to specify it in the import list, as above.

Again, sorry for the late reply, but hopefully this will help latecomers like myself who may stumble across this thread.

-jehuni