$schds{ lc( ( split( /\s+/, $_ ) )[0] ) } = 1 while <MILF>;