my (%schds, %conts, %in_conts_not_schds);
open( MILF, "INFO\\scheduled" ) or die "Can't open scheduled.txt\n";
while( <MILF> ) {
  split(/\s+/,$_);
  $schds{lc($_[0])}=1;
}
close MILF;