for (@class) {
  my ($id, $name, $credits) = split(/,/, $_);
  for my $course (@course) {
    $z++ if $course eq $id;
  }
}