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 subselect is correlated and shall take some like a few minutes and can be optimized .