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