my $filetoopen1 = 1;
my $filetoopen = 1;
my @WordList = 1;