clear screen 

set serveroutput on size unlimited 

select banner from v$version 

drop table FatMcDodd 

prompt create a big fat table 

create table FatMcDodd as select * from NedMcDodd where 1=2 

begin 
  for indx in 1 .. 10000 loop 
    insert into FatMcDodd select * from NedMcDodd; 
  end loop; 
  commit; 
end; 

select count(*) from FatMcDodd 

set timing on 

declare 
  l_id FatMcDodd.id%type; 
begin 
  for rec in (select * from FatMcDodd) loop 
    l_id := rec.id; 
  end loop; 
end; 

set timing off