DB<25> sub tt { print "@_"}

  DB<26> tt ( ($foo = 1) , ($foo = 2) , ($foo = 3) )
3 3 3
  DB<27>