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

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