#+BEGIN_SRC perl
print "hello worldn";
#+END_SRC

#+RESULTS:
#+begin_example
1
#+end_example

#+begin_src perl
my @array;
foreach $a (1..10) {
   print "$an";
   push @array, $a;
}
(1,2,3);
#+end_src

#+begin_example
3
#+end_example