Select Code to Download

open my $DICT, "<", "players" or die $!;
my (%words, %suffix, %prefix);
...
        say "  SUFFIX $suffix: @suff_words";
    }
}

woznia.cki
  PREFIX woznia: wozniak
...
zho.u
  PREFIX zho: zhong
  SUFFIX u: anghelescu begu buzarnescu cadantu daniilidou dulgheru faf
+aliou georgatou gerasimou hincu hisamatsu hsu liu lu mitu nedelcu nic
+ulescu olaru perianu qiu radu senoglu shimizu stancu tigu vaideanu xu
+ yu

real    0m0.266s
user    0m0.256s
sys     0m0.012s