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

##</code><code>##

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,
    };
}

##</code><code>##

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,
    };
}