SV = PV(0x2352069fd80) at 0x235206db678
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)               <- IsCOW = Shared buffer
  PV = 0x2352275d050 "zzz...zzz"\0
  CUR = 60
  LEN = 64
  COW_REFCNT = 1
SV = PV(0x2352069fd80) at 0x235206db678
  REFCNT = 1
  FLAGS = (POK,pPOK)                     <- No longer sharing a buffer
  PV = 0x2352279a8a0 "Hello there"\0     <- New buffer at new address
  CUR = 11
  LEN = 16

##</code><code>##

SV = PV(0x2076e35a3b0) at 0x2076e41b338
  REFCNT = 1
  FLAGS = (POK,pPOK)                     <- Not sharing a buffer
  PV = 0x2077084ae90 "zzz...zzz"\0
  CUR = 60
  LEN = 62
SV = PV(0x2076e35a3b0) at 0x2076e41b338
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x2077084ae90 "Hello there"\0     <- Same address. Same buffer
  CUR = 11
  LEN = 62

##</code><code>##

$ perl -MDevel::Peek -e'Dump( "zzzzzz" )'
SV = PV(0x57f44e969f20) at 0x57f44e9980a8
  REFCNT = 1
  FLAGS = (POK,IsCOW,READONLY,PROTECT,pPOK)
  PV = 0x57f44e9e8140 "zzzzzz"\0
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

##</code><code>##

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "zzzzzz" )'
SV = PV(0x582cd0b72f20) at 0x582cd0ba1098
  REFCNT = 1
  FLAGS = (POK,IsCOW,READONLY,PROTECT,pPOK)
  PV = 0x582cd0ba4a40 "zzzzzz"\0
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

$ 5.40t/bin/perl -MDevel::Peek -e'Dump( "zzzzzz" )'
SV = PV(0x6381a4328f20) at 0x6381a4357028
  REFCNT = 1
  FLAGS = (POK,IsCOW,READONLY,PROTECT,pPOK)
  PV = 0x6381a43a7d10 "zzzzzz"\0
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

##</code><code>##

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "zzz" . "zzz" )'
SV = PV(0x6110ea0263a0) at 0x6110ea0540a0
  REFCNT = 1
  FLAGS = (PADTMP,POK,IsCOW,READONLY,PROTECT,pPOK)
  PV = 0x6110ea080fc0 "zzzzzz"\0
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

$ 5.40t/bin/perl -MDevel::Peek -e'Dump( "zzz" . "zzz" )'
SV = PV(0x5be570a973a0) at 0x5be570ac50c0
  REFCNT = 1
  FLAGS = (PADTMP,POK,READONLY,PROTECT,pPOK)
  PV = 0x5be570af23e0 "zzzzzz"\0
  CUR = 6
  LEN = 16

##</code><code>##

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "z" x 6 )'
SV = PV(0x607fa35c4200) at 0x607fa35f2138
  REFCNT = 1
  FLAGS = (PADTMP,POK,IsCOW,READONLY,PROTECT,pPOK)
  PV = 0x607fa3603d10 "zzzzzz"\0
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

$ 5.40t/bin/perl -MDevel::Peek -e'Dump( "z" x 6 )'
SV = PV(0x5d8bda39d200) at 0x5d8bda3cafb8
  REFCNT = 1
  FLAGS = (PADTMP,POK,READONLY,PROTECT,pPOK)
  PV = 0x5d8bda3d5340 "zzzzzz"\0
  CUR = 6
  LEN = 16

##</code><code>##

my @scalars; push @scalars, ("A" x 1_000_000) for 0..9;

##</code><code>##

for ( 1 .. 2 ) {
   my $r = \"abc"; 
   say $$r;
   $$r = "def";
}