sub get_all_data{
	my $max_rows = 5000;

	while (my $aref = $sth2->fetchall_arrayref(undef, $max_rows))
	{
		$struct = $dbh_ideas->ora_lob_read(@$aref[1],1,65536);
		push @$raResults, [ $aref[0],$struct ];
	};

return $raResults;
}

##</code><code>##

  $p = Project->new_project($id);
  $cursor = $p->get_all_data;

foreach my $row (@$cursor){
	print OUTPUT do{
		local $" = qq{\t};
		qq{$row->[1]\$\$\$\$\n};
		} if defined $row->[1];
}