None of that double-$, three-level-deep hashref stuff.

True, your solution doesn't use Perl5 style nested hashes. Instead, your code used Perl4 style nested hashes - which aren't really nested and depend on a global variable instead.

I've put Perl4 behind me. A long, long time ago.