#+name: table
| 1 | 2 | 3 |
| 4 | 5 | 6 |

#+name: perl-block
#+begin_src perl :var table=table
  print $table
#+end_src

#+RESULTS: perl-block
: 1

#+begin_src emacs-lisp :var block="perl-block" :results raw
  (save-excursion
    (message "block is %S" block)
    (org-babel-goto-named-src-block block)
    (format "#+begin_example\n%S\n↓\n%s\n#+end_example\n"
            (org-babel-expand-src-block)
            (org-babel-execute-src-block)))
#+end_src

#+RESULTS:
#+begin_example
"$table=[[q(1), q(2), q(3)], [q(4), q(5), q(6)]];
print $table"
↓
1

#+end_example