sub add_courses {
  my $self = shift;
  my $courses = shift; 
    # $courses = ["C++", "Java"];
  my $num = @{$courses};
  for ($i=0; $i<$num; $i++) {
   push @{$self->{'Course(s)'}->{'cour'}}, $courses->[$i];
}