Here are just *a couple* tips and problems with your code.

You really need to look at the errors and warnings -w, strict, and your code give you. -w and strict are your friends!!

• my $filetoopen1 = 1;
  my $filetoopen = 1;
  my @WordList = 1;
  [download]

  Why are you doing this? Are you doing it because of strict? Unless you have a practical reason for declaring your variables this way, you can just declare them like my $var;
• Please excuse me if I'm wrong (as I don't use windows much), but in your path names, aren't you supposed to be using \ instead of the unix style / ?? I think you'll have to escape your backslashes (like \\) too.
• The scope of most of the variables in your program are pretty screwed up, and, as mentioned before in your previous post, the subroutines are not needed at all and would solve your scoping problems. Otherwise, you'll need to declare these variables in your subs (my would be fine then). If you have no idea what I'm talking about, look around - I'm sure there's plently of info on scope and my!!
• You are missing semicolons on a couple lines.
• I have no idea of the ultimate intent of this script is, but do be careful with your open calls- make sure that you're opening the file in the correct mode.

Please note that this list has no intensions of being complete, and you really should try understanding the error messages as much as you can - (how'd you get it to run????). If you are copying the code to here by hand, I'm sure your paste functionality of your browser is fully functional :)