Please use -w and strict, I believe it will be of great benefit to you as you rewrite this - and you do need to rewrite this. If you also indent your code to represent the scoping, your code will be much clearer to you and us.

If you were to read the scheduled file, and extract the names with something like this:

  while (<SCHEDULED>)
  {
    my ($who) = /^(.*?)\s/;
    ...
  }
[download]

then you have the basis of what you need.

You may also want to convert all names to lower case for simpler comparison.