Select Code to Download

Select or download this

SV = PV(0x2352069fd80) at 0x235206db678
  REFCNT = 1
...
  PV = 0x2352279a8a0 "Hello there"\0     <- New buffer at new address
  CUR = 11
  LEN = 16

Select or download this

SV = PV(0x2076e35a3b0) at 0x2076e41b338
  REFCNT = 1
...
  PV = 0x2077084ae90 "Hello there"\0     <- Same address. Same buffer
  CUR = 11
  LEN = 62

Select or download this

$ perl -MDevel::Peek -e'Dump( "zzzzzz" )'
SV = PV(0x57f44e969f20) at 0x57f44e9980a8
...
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

Select or download this

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "zzzzzz" )'
SV = PV(0x582cd0b72f20) at 0x582cd0ba1098
...
  CUR = 6
  LEN = 16
  COW_REFCNT = 0

Select or download this

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "zzz" . "zzz" )'
SV = PV(0x6110ea0263a0) at 0x6110ea0540a0
...
  PV = 0x5be570af23e0 "zzzzzz"\0
  CUR = 6
  LEN = 16

Select or download this

$ 5.42t/bin/perl -MDevel::Peek -e'Dump( "z" x 6 )'
SV = PV(0x607fa35c4200) at 0x607fa35f2138
...
  PV = 0x5d8bda3d5340 "zzzzzz"\0
  CUR = 6
  LEN = 16

Select or download this

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

Select or download this

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