вставка имени таблицы в массив

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.

, каково мое требование, если число не равно нулю, тогда я хочу вставить таблицу вмассив.Не могли бы вы сказать мне, как я могу использовать, если с подсчетом и все.Могу ли я использовать выбрать в.Я сделал, но это давало ошибку.Вышеуказанный запрос находится внутри цикла foreach.