Select Code to Download

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

my @course_info;
while (<>) {
...
        name => $name,
    };
}

my %course_info;
while (<>) {
...
        name => $name,
    };
}