use Devel::Peek;

my $scalar1 = '';
Dump($scalar1);
my $temp1 = $scalar1+1;
Dump($scalar1);
$scalar1 = $scalar1+1;
Dump($scalar1);

SV = PV(0x36974) at 0x43ef74
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x2b23ad4 ""\0
  CUR = 0
  LEN = 4
Argument "" isn't numeric in addition (+) at C:\Projects\test.pl line 17.
SV = PVNV(0x2bbc254) at 0x43ef74
  REFCNT = 1
  FLAGS = (PADMY,POK,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x2b23ad4 ""\0
  CUR = 0
  LEN = 4
SV = PVNV(0x2bbc254) at 0x43ef74
  REFCNT = 1
  FLAGS = (PADMY,NOK,pNOK)
  IV = 0
  NV = 1
  PV = 0x2b23ad4 ""\0
  CUR = 0
  LEN = 4

###

my $scalar2 = '0';
Dump($scalar2);
my $temp2 = $scalar2+1;
Dump($scalar2);
$scalar2 = $scalar2+1;
Dump($scalar2);

SV = PV(0xa26974) at 0x2965d3c
  REFCNT = 1
  FLAGS = (PADMY,POK,pPOK)
  PV = 0x2aa9cd4 "0"\0
  CUR = 1
  LEN = 4
SV = PVIV(0x43297c) at 0x2965d3c
  REFCNT = 1
  FLAGS = (PADMY,IOK,POK,pIOK,pPOK)
  IV = 0
  PV = 0x2aa9cd4 "0"\0
  CUR = 1
  LEN = 4
SV = PVIV(0x43297c) at 0x2965d3c
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 1
  PV = 0x2aa9cd4 "0"\0
  CUR = 1
  LEN = 4