print "Enter the student's course(s) delimiting 
them with a comma (,) ";
 chomp(my $cour = <STDIN>);
 $cour =~ s/\s+//g;
 my @cour = split(",", $cour);
 chomp($self->{"Course(s)"}->{"cour"}=[@cour]);