use Devel::Peek;

$var = "3";
Dump $var;
print "^^^^^^^^^^\n";

$x = $var + 0;
Dump $var;
print "^^^^^^^^^^\n";

$var += 0;
Dump $var;
print "^^^^^^^^^^\n";