my $mycorpus = getCorpus('C:\Users\li\test');
print "$_ : $mycorpus{$_}\n" for sort keys %$mycorpus;