I was going to say:

If STATE, START etc are implemented as subs, the choice of an array at that level could be expensive. How about a hash there, too, as in $Contract_href->{STATE}? (I have not benchmarked this, just a guess).

but then I did run a (perhaps flawed) benchmark and the array with use constant seems to win.