sub ctx {
  print "$_[0] ";
  \&ctx;
}

ctx(1)->(2,ctx(3),ctx(4))->(5,ctx(6))->(7,ctx(8));
print "\n";


##</code><code>##

8 6 3 4 1 2 5 7


##</code><code>##

perl -e '&{die("ONE")}(die("TWO"))'
perl -e 'die("ONE")->(die("TWO"))'


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/