my $line = "math101, A, 203, MWF, 9:30am, Einstein";

my ($coursename, $building, $room, $day, $time, $name) = 
    split /, /, $line;

say $building;
say $name;