For educational purposes:

Pseudo-Hash:

A super-fast array that can also be dereferenced as semi-fast hash!

my $pseudo_hash = [ {foo=>1=>bar=>2=>baz=>3}, baz => bar => foo ];
print $pseudo_hash->{baz}, $pseudo_hash->[2], $pseudo_hash->{foo};
[download]

Use liberally!