my $padded = sprintf "%03s", $number;