use strict;
use Devel::Peek;

my $a;
$a=4;
$a eq "13";
$a++;
Dump($a);
print $a;
Dump($a);