DB<106> (my ($ar) = () )     || print "bla"
bla
  DB<108> (my ($ar) = (1) )    || print "bla"
 => 1

  DB<109> (my ($ar) = (0) )    || print "bla"
 => 1

  DB<110> (my ($ar) = (undef) )|| print "bla"
 => 1

  DB<111> (my ($ar) = (undef,undef) )|| print "bla"
 => 2


##</code><code>##

  DB<119> scalar ( my ($ar) = () )
 => 0