DECLARE 
  TYPE Foursome IS VARRAY(4) OF VARCHAR2(15);  -- varray type 
 
  -- varray variable initialized with constructor: 
 
  team Foursome := Foursome('John', 'Mary', 'Alberto', 'Juanita'); 
 
  PROCEDURE print_team (heading VARCHAR2)IS 
  BEGIN 
    DBMS_OUTPUT.PUT_LINE(heading); 
  
    FOR i IN 1..4 LOOP 
      DBMS_OUTPUT.PUT_LINE(i || '.' || team(i)); 
    END LOOP; 
 
    DBMS_OUTPUT.PUT_LINE('---');  
  END; 
   
BEGIN  
  print_team('2001 Team:'); 
 
  team(3) := 'Pierre';  -- Change values of two elements 
  team(4) := 'Yvonne'; 
  print_team('2005 Team:'); 
 
  -- Invoke constructor to assign new values to varray variable: 
 
  team := Foursome('Arun', 'Amitha', 'Allan', 'Mae'); 
  print_team('2009 Team:'); 
END;