Select Code to Download

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

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