use Devel::Peek;

my $x = "99 bottles of beer on the wall";

Dump( $x );

$x += 1;

Dump( $x );

$x .= "\n";

Dump( $x );

$x += 2;

Dump( $x );