DB<2> $c = sub { my @a = (4..6) }

  DB<3> p scalar sub { @r = (wantarray ? &$c : scalar(&$c)); @r }->()
1
  DB<4> p sub { @r = (wantarray ? &$c : scalar(&$c)); @r }->()
456
  DB<5> x scalar sub { @r = (wantarray ? &$c : scalar(&$c)); \@r }->()
0  ARRAY(0x844e22c)
   0  3
  DB<6> x sub { @r = (wantarray ? &$c : scalar(&$c)); \@r }->()
0  ARRAY(0x844e22c)
   0  4
   1  5
   2  6