use strict;
use warnings;

my $number = 123;
my $pad = 9 - length $number;

$number = '0' x $pad . $number;
print "$number\n";