my $result = sprintf "%03d", $number;