[family@pedestrian family]$ perl -e '
>   $somehash{foo}{bar}{baz}++;
>   $somehash{quux}{wibble}{42}++;
>
>   foreach $x (keys %somehash) {
>      foreach $y (keys %{$somehash{$x}}) {
>         foreach $z (keys %{$somehash{$x}{$y}}) {
>             print "There were $somehash{$x}{$y}{$z} ".
>               "occurrances of $x,$y,$z\n";
>          }
>      }
>   }
>
> '
There were 1 occurrances of foo,bar,baz
There were 1 occurrances of quux,wibble,42
[family@pedestrian family]$