my @array = split /\s+/;
$schds{ lc($array[0]) } = 1;