$number = 1;
$number = "0".$number until length $number >= 3;
print $number,"\n";
[download]

Hope that helps..