my $number = 15;
my $size = 10;
print '0' x ($size - length($number)) . $number;