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