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)