I take this to be an obfuscated perl puzzle rather than merely bad code, so the lack of stricture and warnings is deliberate.

There are two mysteries: first, why it works at all and second, why it doesn't print. Now that I've looked at it, I think it's fairly clever.