Yes you do need to explicitly tell keys its a hash. Annoying at times, but necessary.

use strict;
use warnings;
my $hash={a=>{b=>1},c=>{d=>1}};
foreach my $key (keys %$hash) {
   print "$key\n";
   foreach my $subkey (keys %{$hash->{$key}}) {
     print "\t$subkey\n";
   }
}
[download]

So theres the simple way and the complicated way...

HTH

Yves / DeMerphq
--
This space for rent.