use warnings;
use strict;

my $v = 99;

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

##</code><code>##

0099
0100
200