use strict;
use warnings;

my $number = 123;

$number = sprintf "%09u", $number;
print "$number\n";