DB<54> $a= join ",",(1..5)


  DB<55> p $a
1,2,3,4,5

  DB<56> print scalar split /,/,$a
5

  DB<57> ($A)=split /,/,$a


  DB<58> print $A
1