In other words, do something like this:

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