How do I increment a value with leading zeroes in Perl?

Question

It's the same question as this one, but using Perl!

I would like to iterate over a value with just one leading zero.

The equivalent in shell would be:

for i in $(seq -w 01 99) ; do echo $i ; done

Answer 1

Since the leading zero is significant, presumably you want to use these as strings, not numbers. In that case, there is a different solution that does not involve sprintf:

for my $i ("00" .. "99") {
    print "$i\n";
}