foreach my $key (keys %{$abc}) { if ( ref $abc->{$key} eq 'HASH' ) { } } [download]
In reply to What data structure is this code looking for by mhearse