Select Code to Download

$sth_ideas->bind_param_inout(":l_proj",\$projects,0,{ora_type=>ORA_RSE
+T});
    $sth_ideas->execute;
...
                
    }
    return \@proj;

my $count=0;
foreach my $e (@$aref){
...
print $e,"\t";

}