use Devel::Peek;
my $value = "four";
warn "(1):\n" ; Dump($value);
{
    $value = "five";
    warn "(2):\n" ; Dump($value);
}
__END__
(1):
SV = PV(0x8bcdb00) at 0x8bcd75c
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x8bee7d0 "four"\0
  CUR = 4
  LEN = 8
(2):
SV = PV(0x8bcdb00) at 0x8bcd75c
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK)
  PV = 0x8bee7d0 "five"\0
  CUR = 4
  LEN = 8