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)

##</code><code>##

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

  DB<119> tst {1,2,3,4} for 1..5
HASH(0xa3963f0)
HASH(0xa396940)
HASH(0xa396720)
HASH(0xa3966c0)
HASH(0xa3963f0)