Select Code to Download

$student1->drop_courses(["C++"]);
$student1->drop_courses(["C++", "Bio"]);

sub drop_courses { # drop_courses(["",]);
  my $self=shift;
  my $del_cour = shift; # $del_cour = ["Java"];
...
print "After dropping: ", 
  join (", ", @{$self->{'Course(s)'}->{'cour'}}), "\n";
}