use strict;  
use warnings;  
use Devel::Peek;

my $x = '10';
Dump($x);

my $y = $x;
Dump($y);

my $z = 0 + $x;
Dump($z);

my $a = 10;
Dump($a);

print "\$a = $a\n";
Dump($a);