create or replace package demo_pkg
as
        type array is table of char(2000) index by binary_integer;
        g_data array;
end;
/
select a.name, to_char(b.value, '999,999,999') value
  from v$statname a, v$mystat b
 where a.statistic# = b.statistic#
   and a.name like '%ga memory%';
set autotrace traceonly statistics;
select * from big_table order by 1,2,3,4;
select a.name, to_char(b.value, '999,999,999') value
  from v$statname a, v$mystat b
 where a.statistic# = b.statistic#
   and a.name like '%ga memory%';
begin
        for i in 1 .. 100000
        loop
                demo_pkg.g_data(i) := 'x';
        end loop;
end;
/
select a.name, to_char(b.value, '999,999,999') value
  from v$statname a, v$mystat b
 where a.statistic# = b.statistic#
   and a.name like '%ga memory%';
set autotrace traceonly statistics;
select * from big_table order by 1,2,3,4;