[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]$


##</code><code>##

F:\perl>perl temp.pl
There were 1 occurrances of quux,wibble,42
There were 1 occurrances of foo,bar,baz


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/