my %course_info;
while (<>) {
    my ($coursename, $building, $room, $day, $time, $name) = 
        split /, /, $line;
    $course_info{$coursename} = {
        building => $building,
        room => $room,
        day => $day,
        time => $time,
        name => $name,
    };
}