…..
print "\n============Stored Procedure=========\n";

my @arrParam=('Dusica 1','Dusica 2',"Dusica 3","Dusica 4","Dusica 5");


my $counter=0;
my $plSqlCodeBlock = "
      DECLARE
      	inArr	TAXNET.STRING_TABLE:=TAXNET.STRING_TABLE('";
	foreach my $arrEl( @arrParam )
	{
		$plSqlCodeBlock .=$arrEl;
		if($counter<scalar @arrParam-1)
		{
			$plSqlCodeBlock .="','";
		}
		$counter++;
	}
      $plSqlCodeBlock .=	"');
      BEGIN 
       	:retVal:= TAXNET.RV_TEST.collectionInputExampleTable(inArr);
      END;"; 

#print "$plSqlCodeBlock\n\n\n";

my $sth = $dbHandle->prepare($plSqlCodeBlock);
my $csr; 

$sth->bind_param_inout( ":retVal", \$csr, 0, { ora_type => ORA_RSET } );
$sth->execute();

while(@row = $csr->fetchrow_array)
{
		#$csr->finish;	
	print "\nList Element:$row[0]";
	
}	

$csr->finish;
$sth->finish;


$dbHandle->disconnect;

print "\n============End=========<<<<<\n";
…..