use Devel::Peek qw| Dump |;

my $x = 123.1;
my $y = '123.10';
my $z = $y + 0;

Dump $x;
Dump $y;
Dump $z;

##</code><code>##

SV = NV(0x81ac10) at 0x801794
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,pNOK)
  NV = 123.1
SV = PVNV(0x8044d0) at 0x801770
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,POK,pIOK,pNOK,pPOK)
  IV = 123
  NV = 123.1
  PV = 0x301200 "123.10"\0
  CUR = 6
  LEN = 8
SV = NV(0x81ac20) at 0x801788
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,NOK,pNOK)
  NV = 123.1