More info please? It works for me:

use strict;
use warnings;

use Win32::OLE ();

my $ex = Win32::OLE->new('Excel.Application')
or die("Unable to open Excel object\n");

foreach my $key (keys(%$ex)) {
   print($key, "\n");

   # Application
   # Creator
   # Parent
   # ActiveCell
   # ActiveChart
   # ActivePrinter
   # ...
}
[download]

Or if you want to to iterate over a collection returned by a OLE object, use the in function provided by Win32::OLE.

use strict;
use warnings;
use Win32::OLE;

my $hashRef = Win32::OLE->new('Excel.Application') or die "Can't open 
+Excel";
my @keys = keys %{$hashRef};

print "@keys\n";
[download]

Prints (in part):

Application Creator Parent ActiveCell ActiveChart ActivePrinter Active
+Sheet ActiveWindow ActiveWorkbook Assistant Cells Charts CommandBars 
+DDEAppReturnCode Names Range Selection Sheets ThisWorkbook
[download]

Is there soemthing else you aren't telling us? Are you using use strict; use warnings;? Do you check that your Win32::OLE->new succeded?

Please see Not Exactly a Hash Tutorial and Re: How can I visualize my complex data structure? for ways to print complex data structures like hashes.

HTH,

I have looked through your references but I am still confused. Are you saying that it is really not a hash?

-------------------------------
by me
http://www.basgetti.com
http://www.kidlins.com

Absent your actual data, my best suggestion is probably to "print" $hash using something like:

use Data::Dumper;

...

print Dumper( $hash );
[download]

This way, you can see what you have on your hands and get an idea of the syntax needed to work with it.

intro to references and References quick reference are probably also required reading. :-)

HTH,

planetscape