Try this:

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

print pad 123, 5; print "\n";
print pad 59230, 10;
[download]

Prints:

00123
0000059230
[download]