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