Select Code to Download

Here are the statistics for the Sino.
Address: kk ID: kk 
<...continues...>
Course(s): Chem, Bio, Maths, C++, Java 
After dropping: Chem, Bio, Maths, , Java

package Student3; 
sub new { my $class = shift; my $ref = {}; 
...
print "After dropping: ", 
     join (", ", @{$self->{'Course(s)'}->{'cour'}}), "\n"; 
1;

#!/usr/bin/perl -w 
use Student3; 
...
$student1->add_courses(["C++", "Java"]);
$student1->show_student; 
$student1->drop_courses(["C++"]);