PL/SQL Problem

DECLARE
TYPE code_array_  IS VARRAY(26) OF VARCHAR2(6);
arreglo code_array_;

BEGIN
    arreglo := code_array_();
    arreglo.extend(2);
  FOR i IN (SELECT regexp_substr('HOTEL, CUN' ,'[^,]+', 1, LEVEL) AS opt FROM dual
                 CONNECT BY regexp_substr('HOTEL, CUN', '[^,]+', 1, LEVEL) IS NOT NULL)
                 LOOP
                 codes_(i) := i.opt;
    END LOOP;
END;