dss

DECLARE
     l_tablen BINARY_INTEGER;
     l_tab DBMS_UTILITY.uncl_array;
     CURSOR cur
     IS
       SELECT 'word1, word2, word3, word4, word5, word6' val FROM dual;
     rec cur%rowtype;
   BEGIN
     OPEN cur;
     LOOP
       FETCH cur INTO rec;
       EXIT
     WHEN cur%notfound;
       DBMS_UTILITY.comma_to_table (
       list => rec.val, tablen => l_tablen, tab => l_tab);
       FOR i IN 1 .. l_tablen
       LOOP
         DBMS_OUTPUT.put_line(i || ' : ' || trim(l_tab(i)));
       END LOOP;
     END LOOP;
     CLOSE cur;
  END;