Well, some of the code, yes, I was thinking of making a Tie::Hash. (I think that is the module, it should be easy to figure out)

Infact the idea of @{$self->{keys}} and @{$self->{values}} was taken from from code in articles on using Tie... right now I was mostly just getting it working first. (Well other than trying to cut down on me writting code over and over again)

As per $key eq $id... I've read through a few documents and it is very confusing about how that operator works. Or maybe I am reading too deep into what eq does and how it opperates.