DB<115> sub tst (&) { print "$_[0]\n" }

  DB<116> tst {1,2,3,4} for 1..5
CODE(0xa396560)
CODE(0xa396560)
CODE(0xa396560)
CODE(0xa396560)
CODE(0xa396560)