$sth_ideas->bind_param_inout(":l_proj",\$projects,0,{ora_type=>ORA_RSET});
	$sth_ideas->execute;
	
	while ($row = $projects->fetchrow_arrayref){
		
		$id=$row->[0];
		$name=$row->[1];
		$perm=$row->[2];
		
	push @proj, $id,$name,$perm;
				
	}
	return \@proj;


##</code><code>##

my $count=0;
foreach my $e (@$aref){
$count++;
if ($count==4){
	$count=1; print "\n";
}

print $e,"\t";

}