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'
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