As my first comment, you should have

use strict;
use warnings;
[download]

at the start of your scripts.
Using those directives, the errors are:

Global symbol "%word_types" requires explicit package name (did you fo
+rget to declare "my %word_types"?) at C:\Users...\PerlProjects\Monks\
+Node_122108_getCorpus.pl line 69.
Global symbol "%overallcounts" requires explicit package name (did you
+ forget to declare "my %overallcounts"?) at C:\Users....\PerlProjects
+\Monks\Node_122108_getCorpus.pl line 70.
BEGIN not safe after errors--compilation aborted at C:\Users\mmtho\Doc
+uments\PerlProjects\Monks\Node_122108_getCorpus.pl line 75.
[download]