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

same thing, different color

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

--
Snazzy tagline here