Help for this page

Select Code to Download

Select or download this

  $somehash{foo}{bar}{baz}++;
  $somehash{quux}{wibble}{42}++;
...
         }
     }
  }

Select or download this

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