Change lines 58 and 59 of Tie::RegexpHash as follows:

#    while  ( ($key ne $self->{KEYS}->[ $i ]) and
#         ($i < $self->{COUNT}) ) {
    while  ( ($i < $self->{COUNT}) and
         ($key ne $self->{KEYS}->[ $i ])  ) {
[download]

and evaluates left to right. I think the original author meant to short-circuit, but somehow reversed the comparisons.