sub pad($$) {
    my $string = shift;
    my $length = shift;
    return sprintf "%0${length}d", $string;
}

print pad 123, 5; print "\n";
print pad 59230, 10;

##</code><code>##

00123
0000059230