use warnings;
use strict;

use Devel::Peek;

my $v = 99;
print Dump( $v );

$v = sprintf( "%04d", $v );
print "$v\n";
print Dump( $v );

++$v;
print "$v\n";
print Dump( $v );

++$v;
print "$v\n";
print Dump( $v );