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