small perl script for vocab learning