use warnings;
use strict;
my $v = 99;
$v = sprintf( "%04d", $v );
print "$v\n";
$v += 1;
print "$v\n";

$v += $v;
print "$v\n";