$ perl -w test_each_tie 200
v5.10.0
INITIAL LOAD
LLLL 200 records

LLLL-WWWWWWWWWWWWWWWWW 185
LLLL-YYYYYYYYYYYYYYYYYYYYYYYYYYYY 7
LLLL-ZZZZZZ 8