my $number = 15;
my $size = 10;
printf "%0" . $size . "d", $number;