for (@class) {
  ($id, $name, $credits) = split(/,/, $_);
  for($x=0; $clen > $x; $x++) {
    $z++ if $course[$x] eq $id;
  }
}