use Math::BigInt;
my $i = Math::BigInt->new('123_456_789_000_000_000_000');
printf qq'%045s\n', $i;

__OUTPUT__
000000000000000000000000123456789000000000000