On an unrelated note, it looks like you're using numbers as hash keys, e.g., "6":

$self->{TABLE}{6}

Shouldn't this be an array, à la $self->{TABLE}[6]? Might save you some space and give you more natural (i.e., numerically indexed) access to your data. Maybe that's just superstition on my part; I like to keep numbers and strings strictly separated, but Perl typically handles the translations seamlessly, especially for integers.

BCE
--Your punctuation skills are insufficient!