use Devel::Peek;
my $x = "w";
Dump $x;
$x = 23;
Dump $x;