Hi ,

      my $tables = "select column_name ,object_name from all_tab_colum
+ns,dba_objects where owner_name = ?  and column_name in (select colum
+n_name from all_tab_columns where table_name = object_name)";
[download]

This is a correlated subselect ,so it takes time,it can be optimized.