Select Code to Download

sub add_courses {
    $self = shift;
    $courses = shift;
    push(@{$self{"Course(s)"}->[], $courses);
}