[perl #113926] fix a hash randomization bug

Through sheer sloppiness I managed to avoid actually running the new
test, sorry for the noise.

it compared [ keys %hasha ] and [ keys %hashb ] resulting in failure.