$ perl -wMstrict -MDevel::Peek -le '$a=1; $b="$a"; Dump($a)'
SV = PVIV(0x5841e3fdfc40) at 0x5841e3fe36e0
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 1
  PV = 0x5841e4024ad0 "1"\0
  CUR = 1
  LEN = 10

##</code><code>##

use warnings;
use strict;
use Data::Dumper;
use Devel::Peek;

my $n="1";
print Dumper $n;
Dump($n);
$n++;
print Dumper $n;
Dump($n);
$n--;
print Dumper $n;
Dump($n);

__END__

$VAR1 = '1';
SV = PV(0x53a29eb00fd0) at 0x53a29eb278b8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK)
  PV = 0x53a29ec907b0 "1"\0
  CUR = 1
  LEN = 10
  COW_REFCNT = 1
$VAR1 = '2';
SV = PV(0x53a29eb00fd0) at 0x53a29eb278b8
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x53a29ec3f310 "2"\0
  CUR = 1
  LEN = 10
$VAR1 = 1;
SV = PVIV(0x53a29eb23ac0) at 0x53a29eb278b8
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 1
  PV = 0x53a29ec3f310 "2"\0
  CUR = 1
  LEN = 10