use Devel::Peek qw| Dump |;

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

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