Help for this page
$somehash{foo}{bar}{baz}++; $somehash{quux}{wibble}{42}++; ... } } }
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/