learnwords tools in Perl/tk