Deeper level of hashing

[dn.perl]

I am using (roughly) the following code.

my %counter = () ;

$counter{label11}{parent} = 'label1' ;
$counter{label11}{hits} = 14 ;
$counter{label12}{parent} = 'label1' ;
$counter{label12}{hits} = 14 ;

If I use: for my $key(keys %counter), I get label11 and label12 as
values.
I would like to run something like: foreach my $key(keys %
($counter(label11) ) )
and get 'parent' and 'hits' as the sub-keys.

Is there any quick way to do this but quicker than what? So let's say
is there a 'standard way' in which this is done? Or do I have to do it
the 'hard way' ? Define a sub-hash, and then assign it to the parent
hash as its key's value?

 

[Joost Diepenmaat]

I am using (roughly) the following code.

my %counter = () ;

$counter{label11}{parent} = 'label1' ;
$counter{label11}{hits} = 14 ;
$counter{label12}{parent} = 'label1' ;
$counter{label12}{hits} = 14 ;

If I use: for my $key(keys %counter), I get label11 and label12 as
values.
I would like to run something like: foreach my $key(keys %
($counter(label11) ) )
and get 'parent' and 'hits' as the sub-keys.

Is there any quick way to do this but quicker than what? So let's say
is there a 'standard way' in which this is done? Or do I have to do it
the 'hard way' ? Define a sub-hash, and then assign it to the parent
hash as its key's value?

Do you mean something like this?

foreach my $key (keys %{$counter{label11}}) {
print "$key => $counter{label11}->{$key}\n";
}