#!/usr/bin/perl

	@v_array = (1,2,4,5,6,8);
	$db_userid = 'ni71/ni711';
	$bufTPO = qx{ sqlplus -s << EOF
	$db_userid
		set verify off
		set feedback off
		set serveroutput on
		set linesize 32766
		DECLARE
			type varcharlist is table of varchar2(20);
			v_array varcharlist;
		BEGIN
			for idx in v_array.first..v_array.last loop
				DBMS_OUTPUT.PUT_LINE('v_array'||v_array(idx));
			end loop;
		END;
		/
		exit
		EOF };
	print $bufTPO;