DB<81> sub change_arr { $_[0] = [666] }

  DB<82> $a=[42]

  DB<83> change_arr($a)

  DB<84> x $a
0  ARRAY(0x3363180)
   0  666
  DB<85> change_arr([42]) #NO ERROR???

  DB<86>