use Devel::Peek;

my $a = "1";
my $b = 2;

print Dump($a);
print Dump($b);