glBegin(GL_TRIANGLES);
         for my$i (0..$#{$set}) {
           my @set = split ",",$set->[$i];

           glVertex3f($set[0],$set[1],$set[2]);
           glVertex3f($set[3],$set[4],$set[5]);
           glVertex3f($set[6],$set[7],$set[8]);
         }
       glEnd;