foreach(@class) 
{
    ($id, $name, $credits) = split(/,/, $_);
    $x=0;
    while ($clen > $x)
    {
        print "COURSE: ->$course[$x]<- IE: ->$id<-$/"; 
        if ($course[$x] eq $id)
        {
        $z++;
        
        }

        $x++;
    }

}