http://www.perlmonks.org?node_id=2777

This obfuscation is actually useful. It's a module that returns a value that you can treat ilke a scalar reference *or* like a hash reference. For example: 
    $monster = new ArrayHashMonster ... ;
    print $monster->[1];   # This might print `Janvier'
    print $monster->{Jan}; # This can *also* print `Janvier'

[download]
The code is a tremendous obfuscation, but not in the usual way. It's not a huge glob of horrible punctuation characters. The obfuscation is a lot deeper, and I think it would be quite a challenge to most people to figure out how it works. If you want to see it, it's on CPAN at: http://www.perl.com/CPAN/authors/id/MJD/ArrayHashMonster-0.02.tar.gz

Back to Obfuscated Code