将表名插入数组

Question

我是perl的新手，但我知道数据库。我有以下问题。我需要以下查询的小指南

select count(branch_id)
from   (
  SELECT SUBSTR(
           VALUE (p).getStringVal(),
           INSTR(VALUE (p).getStringVal (),'{')+1,
           INSTR(VALUE (p).getStringVal (),'}')
             - INSTR(VALUE (p).getStringVal (),'{')-1
         ) Branch_ID 
  FROM   AXIOM_META.axiom_system_objects, 
         TABLE(
           XMLSEQUENCE(
             EXTRACT (
               xmltype (replace(object_body,'?','')),
               'object/property/object/property[4]'
             )
           )
         ) p 
  WHERE  object_type ='Project'
  and    object_body like '%<property name="name" value="pr_FOCUS" valueType="string"/>%'
)
where    branch_id in (
  select branch_id
  from   AXIOM_META.AXIOM_SOURCE_INSTANCES
  where  lower(table_name)=substr(
                             $table_name_with_owner,
                             instr($table_name_with_owner,'.')+1,
                             length($table_name_with_owner)
                           )
  and    rownum=1
)";

在这里，我通过变量$table_name_with_owner传递表名。

我的要求是，如果count不为零，那么我想将表插入到Array中。能否请您告诉我如何使用count和all。我可以使用select into吗。我做到了，但是它给了错误。上面的查询位于foreach循环中。