#!/usr/bin/perl

use Data::Dumper;
use Devel::Peek;

my $store = {};

my $numString2 = '123.10';
my $num2 = $numString2+0;
Dump $num2;                 #1

$store->{'num2'}=$num2;
Dump $store->{'num2'};      #2

print Dumper $store;        #3
Dump $store->{'num2'};      #4

__END__
SV = NV(0x636e40) at 0x604fd0       #1
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,pNOK)
  NV = 123.1

SV = NV(0x636e50) at 0x604410       #2
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 123.1

$VAR1 = {                           #3
          'num2' => '123.1'
        };

SV = PVNV(0x6b42f8) at 0x604410     #4
  REFCNT = 1
  FLAGS = (NOK,POK,pNOK,pPOK)
  IV = 0
  NV = 123.1
  PV = 0x6eb260 "123.1"\0   <-- side effect of dumping it with Data::Dumper
  CUR = 5
  LEN = 40