DB<36> print scalar (($a)=5)
1                                  # Number of elements in list
  DB<37> print scalar ($a=5)
5                                  # value of $a


##</code><code>##


  DB<41> print scalar (@a=(5,6))
2

  DB<42> print scalar (@a=(6))
1

  DB<43> print scalar (@a=())
0

##</code><code>##

  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