DB<35> sub context { local $\="\n";print wantarray ? "list" : defined wantarray ? "scalar" : "void";() }

  DB<36> x [ ($a= context), (context) ]
scalar
list
0  ARRAY(0x3466930)
   0  undef
  DB<37>