DB<49> print scalar ( ($a)=(5,6,7) )
3

  DB<50> print scalar ( ($a,$b)=(5,6,7) )
3

  DB<51> print scalar ( ()=(5,6,7) )
3