my $num = sprintf "%02d", $some_number;