print "Enter the student's course(s) ";
$self->{"Course(s)"}=[<STDIN>]