Select Code to Download

use strict;
print "$^V\n";
...
foreach(keys(%count)){
print "$_ $count{$_}\n";
}

$ perl -w test_each_tie 200
v5.10.0
...
LLLL-WWWWWWWWWWWWWWWWW 185
LLLL-YYYYYYYYYYYYYYYYYYYYYYYYYYYY 7
LLLL-ZZZZZZ 8

$ perl -w test_each_tie 250
v5.10.0
...
LLLL-WWWWWWWWWWWWWWWWW-WWWWWWWWWWWWWWWWW 114
LLLL 16
LLLL-ZZZZZZ 4