foreach $n ( map { sprintf "%02d", $_ } 0..30 ) {
    # do stuff with $n
}

##</code><code>##

my @list = map { sprintf "%02d", $_ } 0..99;