DECLARE
   l_array  UTL_I18N.STRING_ARRAY;
   idx      PLS_INTEGER;

BEGIN
  DBMS_OUTPUT.ENABLE(100000);

  l_array := UTL_I18N.GET_LOCAL_TIME_ZONES('AMERICA');

  DBMS_OUTPUT.PUT_LINE('Time Zone Count = '||
     l_array.COUNT);

  idx := l_array.FIRST;
  WHILE idx < l_array.COUNT LOOP
    DBMS_OUTPUT.PUT_LINE(idx||' '||l_array(idx));
    idx := l_array.NEXT(idx);
  END LOOP;

END;
/